arkadaşlar kendim bir çalışma yaptım ama formu nasıl kodlayıp bağlıyacağımı bilemediğimden yardımınızı bekliyorum
Ekli dosyalar
-
48 KB Görüntüleme: 40
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
'Üye bilgi sayfasına kayıt yapma.
Sub kaydet()
Set s1 = Sheets("ÜYE BİLGİ") 'Bu sayfayı s1 değişkenine ata
Set s2 = Sheets("ÜYE KAYIT") 'Bu sayfayı s2 değişkenine ata
son = Sheets("ÜYE BİLGİ").[b65536].End(3).Row 'ÜYE BİLGİ sayfasında son hücreyi bul.
s1.Cells(son + 1, "c") = [d9] ' ÜYE BİLGİ sayfasında son hücreden sonraki hücreye ADI/SOYADINI yaz.
End Sub