Bir sayfadan diğerine veri kopyalama (acil)

[selveroz]

Merhabalar,

Ben birinci sayfada bulunan tarih ve saat bilgilerini ikinci sayfada yer alan "Tarih ve Saat" sütunun altına sırayla eklemek istiyorum. Bunun için bir kod yazdım ama başarılı olamadım. İncelerseniz sevinirim.

Şimdiden teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim S1, S2 As Worksheet
Dim SUT, S As Integer
Set S1 = Sheets("Sheet1")
Set S2 = Sheets("Sheet2")
S2.[A2:A1000].Clear
For SUT = 3 To S1.Cells(65536, "B").End(3).Row
If S1.Cells(SUT, "B") Like "*" & ":" & "*" Then
S = S + 1
S2.Cells(S + 1, "A") = S1.Cells(SUT, "B")
End If
Next
End Sub

 

[selveroz]

Çok Teşekkürler

Çok teşekkür ederim