- Katılım
- 14 Kasım 2017
- Mesajlar
- 618
- Excel Vers. ve Dili
- 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 07-01-2024
Konu açmayim kendim halledeyim dedim ama sabahtan beri uğraşıyorum beceremedim.
"Veri tabanı gelen ürünler" sayfasında A1:F1 aralığındaki verileri, yine aynı sayfada son dolu hücrenin bir altına aktarmak istiyorum. Kullandığım ama beceremediğim kod aşağıda.
İşim gereği excelden çok uzak kaldığım için hemen hemen her şeyi unutmuşum
Bu konuda bana yardımcı olup, özellikle kendimi tekrar geliştirmem için nerde hata yaptığımı söylerseniz çok sevinirim.
"Veri tabanı gelen ürünler" sayfasında A1:F1 aralığındaki verileri, yine aynı sayfada son dolu hücrenin bir altına aktarmak istiyorum. Kullandığım ama beceremediğim kod aşağıda.
Kod:
Sub deneme()
Dim Say As Long
Say = [A1000].End(3).Row + 1
Syf = Sheets("Veritabanı-Gelen ürünler")
Syf.Range("A" & Say).Value = Syf.Range("A1").Value
End Sub
Bu konuda bana yardımcı olup, özellikle kendimi tekrar geliştirmem için nerde hata yaptığımı söylerseniz çok sevinirim.