Veri tabanına kayıt

[recepkull]

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.

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

İş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.

 

[murat_fidan]

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.

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

İş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.

Sub deneme()
    Dim Say As Long
    Dim Syf As Worksheet
    Dim SonDoluSatir As Long
    
    Set Syf = Sheets("Veritabanı-Gelen ürünler")
    
    ' Son dolu satırı bulma
    SonDoluSatir = Syf.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' Aktarım yapılacak hedef satır
    Say = SonDoluSatir + 1
    
    ' Verileri aktarma
    Syf.Range("A1:F1").Copy Destination:=Syf.Range("A" & Say)
End Sub

 

[recepkull]

Ustad yeni bakma fırsatım oldu cevap için teşekkürler. kopyalanan hücreyi sadece değer olarak yapıştırmak için koda nasıl bir ekleme yapmalıyım? yada bu işlemi copy ile değilde value ile yaparsak nasıl olur ?

 

[recepkull]

Sorunumu çözdüm teşekkür ederim