Re: JUPITER rusza!!!!

Sub test()
Dim a As Long
Dim x As Long
Dim z As String
a = Cells(Rows.Count, 3).End(xlUp).Row
For x = 1 To a
z = Sheets("Arkusz1").Range("A" & x)
z = Left(a, 1)
Sheets("Arkusz1").Range("f1") = z
Next x
End Sub
Sub MakeLastFirst()
Dim r As Long
Set ws1 = Sheets("Arkusz2")
Set ws2 = Sheets("Arkusz2")

For r = 7 To Cells(Rows.Count, 3).End(xlUp).Row
ws1.Cells(r, 1) = Cells(r, 4) & " " & Cells(r, 3)
Worksheets("Arkusz1").Activate
Next r

End Sub

Obserwuj wątek poprzednia wiadomość +Odpowiedz 0 0

Internet Firmowy nawet 12 x 0 zł wraz z usługami bezpiecznego internetu

Pokaż treść wszystkich Najstarsza Najnowsza

JUPITER rusza!!!! Autor: ~wiatrak 2013-06-20 11:05
Re: JUPITER rusza!!!! Autor: ~ji 2013-08-02 00:40

Treści na Forum Bankier.pl (Forum) publikowane są przez użytkowników portalu i nie są autoryzowane przez Redakcję przed publikacją.

Bonnier Business (Polska) Sp.z o.o. nie ponosi odpowiedzialności za informacje publikowane na Forum, szczególnie fałszywe lub nierzetelne, które mogą wprowadzać w błąd w zakresie decyzji inwestycyjnych w myśl artykułów 12 i 15 Rozporządzenia MAR (market abuse regulation). Złamanie zakazu manipulacji jest zagrożone odpowiedzialnością karną.

Zamieszczanie na Forum propozycji konkretnych decyzji inwestycyjnych w odniesieniu do instrumentu finansowego może stanowić rekomendację w rozumieniu przepisów Rozporządzenia MAR. Sporządzanie i rozpowszechnianie rekomendacji bez zachowania wymogów prawnych podlega odpowiedzialności administracyjnej.

Przypominamy, że Forum stanowi platformę wymiany opinii. Każda informacja wpływająca na decyzje inwestycyjne pozyskana przez Forum, powinna być w interesie inwestora, zweryfikowana w innym źródle.