Son Satırdan İşleme Başlama

[multimedia]

Bir arama cümlesi bulamadığım için arayamadım. Forumda daha önce bilgisi verildiyse bu sebeple bağışlayın.

Benim şöyle bir şeye ihtiyacım var;
Range("ı65536").End(3)(2, 1) = [h3].Value
Range("ı65536").End(3)(2, 1) = [h4].Value

Bu makroyla sorunsuz olarak sabit bir yerde duran değeri son satıra yapıştırıyorum ama aynı satırları belirli bir aralıkta boyayıp bir metin ekleyemiyorum.

Makro kaydetle yapıyorum ama hep kaydettiği yerde boyama işi yapıyor.
Göreli kullan diyince yukarıdaki kodu çalışmaz hale getiriyor.

Yukarıdaki kod çalışsın ama aynı satırları boyasın ve belli hücrelere bir metin eklesin.

Bunu nasıl yapabilirim ?
Teşekkürler herkese !

 

[Korhan Ayhan]

Ben sorunuzu tam olarak anlayamadım. Hücre adresi vererek örnekleme şansınız var mı?

 

[multimedia]

İlginize çok teşekkürler.
Butona atanmış bir makro var. Tıklandığında sabit bir yerdeki veriyi alıp son satıra yapıştırıyor. Ama buna ek olarak yapıştırdığı satırı boyasın ve aynı satıra bir metin eklesin istiyorum.

Dosya örneğine buradan ulaşabilirsiniz. Günü Bitir butonuna tıklayınca amacım tam olarak anlaşılacaktır.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub GunuBitir()
    Son = Cells(Rows.Count, "H").End(3).Row + 1
    Range("A" & Son & ":E" & Son + 1).Interior.Color = 49407
    Range("G" & Son & ":K" & Son + 1).Interior.Color = 49407
    Range("H" & Son) = "İLGİLİ GÜN SONU NAKİT"
    Range("H" & Son + 1) = "İLGİLİ GÜN SONU BANKA"
    Range("H" & Son).Resize(2, 1).HorizontalAlignment = xlCenter
    Range("I" & Son) = "=C3-I1"
    Range("I" & Son + 1) = "=C4-H4"
End Sub

 

[multimedia]

Günü bitirdikten sonra, bir sonraki gün değer girdiğimizde bitirilen gün de değişiyor. Yani sabit hücrelere bağlı kalmış. Bu bağı da çözersek sanırım oldu.
Çıkarma işlemine bile gerek yok aslında

H3 ü kopyala son satıra yapıştır, H4 ü kopyala son satıra yapıştır

Şu kod çok iyi mesela:
Range("ı65536").End(3)(2, 1) = [h3].Value
Range("ı65536").End(3)(2, 1) = [h4].Value

Veya başka bişey bilemiyorum. Ama bağı kesmemiz lazım

 

[Korhan Ayhan]

Aşağıdaki gibi deneyin.

Sub GunuBitir()
    Son = Cells(Rows.Count, "H").End(3).Row + 1
    Range("A" & Son & ":E" & Son + 1).Interior.Color = 49407
    Range("G" & Son & ":K" & Son + 1).Interior.Color = 49407
    Range("H" & Son) = "İLGİLİ GÜN SONU NAKİT"
    Range("H" & Son + 1) = "İLGİLİ GÜN SONU BANKA"
    Range("H" & Son).Resize(2, 1).HorizontalAlignment = xlCenter
    Range("I" & Son) = Range("C3") - Range("I1")
    Range("I" & Son + 1) = Range("C4") - Range("H4")
End Sub

 

[multimedia]

Malesef olmadı.
Gün bitirdikten sonra,
bir sonraki gün değerler girdiğinde
tekrar gün bitir diyince yazdığın yeni değerlerin üzerine denk geliyor, son satıra gitmiyor

 

[Korhan Ayhan]

Son dolu hücreyi "H" sütununa yazdığınız açıklamalara göre sorgulatmıştım. Eğer bu sütun sürekli dolu olursa bir problem olmaması gerekir.