+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Evrak Kayıt Programı 2022 (/konu-evrak-kayit-programi-2022.html)
Evrak Kayıt Programı 2022 - yyhy - 27/06/2022
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.
RE: Evrak Kayıt Programı 2022 - berduş - 27/06/2022
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"RE: Evrak Kayıt Programı 2022 - yyhy - 27/06/2022
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?
RE: Evrak Kayıt Programı 2022 - berduş - 27/06/2022
evet
RE: Evrak Kayıt Programı 2022 - yyhy - 27/06/2022
Teşekkürler emeğinize sağlık. İhtiyaca cevap verdi.
RE: Evrak Kayıt Programı 2022 - berduş - 27/06/2022
iyi çalışmalar