dolu olan hücrenin atlatılması

[bulentcigali]

ekte gönderdiğim excel sayfasında dolu olan hücrenin atlatılıp boş olan hücreye değer yazdırma işlemini yapamadım ilgilerinizi bekliyorum.teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu Sayfa1 in kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$H$8" Then Exit Sub
    If Not IsEmpty(Target) Then [IV2].End(1).Offset(0, 1) = [H8]
    Target.Select
End Sub

 

[bulentcigali]

merhaba,sayın cost control,
kod çalıştı ancak (H8 e girdiğim değer boş olan hücreye yazıyor) yazılan hücreyi sildiğimde de o hücreyi dolu görüp ondan sonraki hücreye yazıyor.yani boşalttığım hücreyi de dolu gördü ben ise boş olduğunda yazsın istiyorum.sorunu çözdüm ancak ilgili hücreleri seçip "içeriği temizle" komutu ile hallettim bunu kod içerisine yazabilirmiyiz.çok teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Kodu deneyerek göndermiştim. Sanırım bir yerde yanlışlık var. Ya ben sorunuzu tam anlamadım. Yada siz uygulamayı yanlış yapıyorsunuz. Örnek bir dosya üzerinde nasıl yaptığınızı tarif ederseniz yardımcı olmaya çalışırız.

 

[bulentcigali]

sayın cost control
ben space barla geçtiğim için onuda karakter olarak görmüş ve sil dediğimde yaptı ben hatalı kullanmışım özür dilerim.çok teşekkür ederim.iyi çalışmalar