Sub GÖNDER()
Set ST = Sheets("TABLO")
Son_Satır = ST.[B65536].End(3).Row + 1
ST.Cells(Son_Satır, 2) = ActiveSheet.[B4]
ST.Cells(Son_Satır, 3) = ActiveSheet.[C8]
Set ST = Nothing
MsgBox "VERİ GÖNDERİLMİŞTİR.", vbInformation
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.