veri aktarma

[maltinkaya]

sayfa1 den sayfa2 ye seçili veileri aktarma açıklama dosyanın içinde var
ilginize teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
If Range("G1").Value = "" Then
    MsgBox "G1 Hücresi boş olamaz.Bir tarih girmelisiniz.", vbCritical, "UYARI"
    Sheets("G1").Select
    Exit Sub
End If
Set s2 = Sheets("Sayfa2")
sat = s2.Cells(65536, "C").End(xlUp).Row + 1
s2.Cells(sat, "B").Value = sat - 11
s2.Cells(sat, "C").Value = Range("G1").Value
s2.Cells(sat, "D").Value = Range("A3").Value
s2.Cells(sat, "E").Value = Range("B3").Value
s2.Cells(sat, "F").Value = Range("G3").Value
MsgBox "Aktarma tamamlandı..!!", vbOKOnly + vbInformation, "Aktarıldı"
Set s2 = Nothing
End Sub

 

[maltinkaya]

slm kardeş ellerine sağlık eksiği yok fazlası var teşekkürler

 

[Orion1]

slm kardeş ellerine sağlık eksiği yok fazlası var teşekkürler

Rica ederim.
İyi çalışmalar.