~ji
2013-08-02 00:40:
IP 194.146.217.*

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

Dodaj odpowiedź

Temat postu jest wymagany. Temat postu może zawierać min. 2 znaki. Temat postu może zawierać max. 72 znaki.
Treść postu jest wymagana. Treść postu może zawierać min. 2 znaki.
Pole Autor jest wymagane. Pole Autor musi zawierać min. 2 znaki. Pole Autor musi zawierać max. 30 znaków. Pole Autor może zawierać tylko litery, cyfry oraz znaki _ i -.

Treści na Forum Bankier.pl publikowane są przez użytkowników portalu i nie są autoryzowane przez Redakcję przed publikacją... Bankier.pl 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 art. 39 ustawy z dnia 29 lipca 2005 r. o obrocie instrumentami finansowymi. 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.