Ekle Butonuna tıkladığım zaman Tahdit Kaldırılan sayfasına T.C. Kimlik Numarasından itibaren bilgileri en son boş satırdaki ilgili hücrelerine yapıştırabilmek için makro ne yazılabilir.
Yardımcı olabilecek arkadaşlara teşekkür ederim.
aşağıdaki kodu dener misiniz?
Set Kynk = ThisWorkbook.Worksheets("Bul")
Set Hdf = ThisWorkbook.Worksheets("Tahdit Kaldırılan"): SonStr = Hdf.Cells(Hdf.Rows.Count, 3).End(xlUp).Row + 1
Dim VrDz As Variant
ReDim VrDz(0, 1 To 8)
With Kynk
VrDz(0, 1) = .Range("Ac17"): VrDz(0, 5) = .Range("AH17")
VrDz(0, 2) = .Range("Ac19"): VrDz(0, 6) = .Range("AH19")
VrDz(0, 3) = .Range("Ac21"): VrDz(0, 7) = .Range("AH21")
VrDz(0, 4) = .Range("Ac23"): VrDz(0, 8) = .Range("AH23")
End With
Hdf.Range("C" & SonStr).Resize(, 8) = VrDz
MsgBox "İşlem Tamam"
Sayın berduş bey makroyu bir modüle ekledim;
Başına : Sub kayıtekle() Sonuna da : End Sub
ekleyerek bitirdim. İşlemi yapıyor: Doğru mu acaba?
Teşekkürler emeğinize sağlık. İhtiyaca cevap verdi.