Kapalı dosyaya veri göndermek

[udentr2002]

Merhaba arkadaşlar kapalı bir dosyanın a stünuna verilerimi aşağıdaki gibi gönderiyorum.

Set Belgem = CreateObject("Excel.Application")
Belgem.Workbooks.Open (ThisWorkbook.Path & "\Kitap1.xlsx")
Set sayfam = Belgem.Workbooks("Kitap1.xlsx").Sheets("revizyon_05")
yer = sayfam.[a65536].End(3).Row + 1


    sayfam.Cells(yer, 1) = Cells(2, 4)
    sayfam.Cells(yer + 1, 1) = Cells(11, 4)
    sayfam.Cells(yer + 2, 1) = Cells(10, 4) & " " & Cells(10, 5)
    
   
Belgem.Workbooks("Kitap1.xlsx").Save
Belgem.Workbooks("Kitap1.xlsx").Close
Set Belgem = Nothing
Set sayfam = Nothing

Aynı dosyaya bu defa aynı verileri 8. satırın en son boş hücresine nasıl gönderebilirim. ne kadar denediysem olmadı.

 

[udentr2002]

Bu Konuda yardım edecek bir hocam yokmu acaba?

 

[halit3]

Bu Konuda yardım edecek bir hocam yokmu acaba?

Bunu denermisiniz.

yer = sayfam.[a65536].End(3).Row + 1
sonsat = sayfam.Cells(yer, Columns.Count).End(xlToLeft).Column + 1
sayfam.Cells(yer, sonsat) = "veri"

 

[udentr2002]

Halit hocam ilginiz ve zaman ayırdığınız için teşekkürler.

Yanlız kodlar hemen a stünunda en alttaki dolu hücrenin bir yanına "veri" yazıyor

benim istediğim. 8. satırın (yatayda) en son boş hücresine yazması

Tekrar nakabilir misiniz hocam.

 

[halit3]

Halit hocam ilginiz ve zaman ayırdığınız için teşekkürler.

Yanlız kodlar hemen a stünunda en alttaki dolu hücrenin bir yanına "veri" yazıyor

benim istediğim. 8. satırın (yatayda) en son boş hücresine yazması

Tekrar nakabilir misiniz hocam.

kod

sonsat = sayfam.Cells(8, Columns.Count).End(xlToLeft).Column + 1
sayfam.Cells(8, sonsat) = "veri

 

[udentr2002]

Halit hocam.

Çok teşekkürler ellerine sağlık. Senin gönderdiğin kodu aşağıda ki gibi küçük bir değişiklik yapınca oldu. Saolun

sonsat = sayfam.Cells(8, Columns.Count).End(xlToLeft).Column + 1
sayfam.Cells(8, sonsat) = "veri"

 

[halit3]

Halit hocam.

Çok teşekkürler ellerine sağlık. Senin gönderdiğin kodu aşağıda ki gibi küçük bir değişiklik yapınca oldu. Saolun

sonsat = sayfam.Cells(8, Columns.Count).End(xlToLeft).Column + 1
sayfam.Cells(8, sonsat) = "veri"

Evet koddaki hata benden kaynaklanmış düzelttim iyi çalışmalar