eğer a2 hücresinde yazım yoksa a3, a4 ü sil ...

[elektrik61]

sorum şu 1. sayfadan 2. sayfadaki atıyorum a1 hücresine atama yapıyorum. fakat bu atamayı yapmazsam a1, a2, a3 hücrelerini silecek, a4, a5, a6 hücrelerini bırakacak. böyle bir şey olabilir mi?

 

[elektrik61]

üstadlardan yardım edebilecek kimse yok mu

 

[BG]

sorum şu 1. sayfadan 2. sayfadaki atıyorum a1 hücresine atama yapıyorum. fakat bu atamayı yapmazsam a1, a2, a3 hücrelerini silecek, a4, a5, a6 hücrelerini bırakacak. böyle bir şey olabilir mi?

lütfen örnek dosya ekleyiniz.

 

[elektrik61]

ilginiz için öncelikle teşekkürler. istediğim örnek olarak iç sayfada 1. süre uzatımı yoksa a12 den f12 ye kadar satırların silinmesi fakat g12 den sonrasının kalması ön izlemeden göreceğiniz gibi g12 den sonrası diğer sayfa teşekkürler

 

[BG]

ilginiz için öncelikle teşekkürler. istediğim örnek olarak iç sayfada 1. süre uzatımı yoksa a12 den f12 ye kadar satırların silinmesi fakat g12 den sonrasının kalması ön izlemeden göreceğiniz gibi g12 den sonrası diğer sayfa teşekkürler

örnek dosyaya göre yinede tam olarak sorunuzu anladığımı söylemem, "1. süre uzatımı yoksa" a12:f12 hücrelerinin içeriğimi silinecek yoksa olduğu gibi o satır mı silinecek. ben olduğu gibi o satırı sildim, siz örneği inceleyin en azından bir adım atmış olalım, onun üzerinden gideriz.dosya ektedir.

not: eğer a12:f12 hücrelerinin içeriği silinecekse
kodu şöyle değiştirin.

Range("A12:F12").ClearContents

 

[elektrik61]

ilgiliniz için teşekkürler gökhan bey peki bu olayı butonsuz yapabilir miyim yani otomatik olarak ikinci bir işlem yapmamak için

 

[BG]

ilgiliniz için teşekkürler gökhan bey peki bu olayı butonsuz yapabilir miyim yani otomatik olarak ikinci bir işlem yapmamak için

çok sağlıklı olmayabilir

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$12" Then Exit Sub
If [A12] = "1. Süre Uzatım Tarihi " And [D12] = "" Then
Range("A12:F12").ClearContents
End If
End Sub

 

[elektrik61]

gökhan bey sıkıntım atamayı başka bir sayfadan yapacağım yani 1. süre uzatımı olabilir de olmaya bilirde fakat bir defa silince geriye dönüş olmuyor bunu nasıl aşabiliriz teşekkürler

 

[elektrik61]

yok mudur hocam bir çözüm

 

[elektrik61]

üstadlar söyle bir formül yazdım ama çalışmıyor sıkıntısını söylerseniz sevinirim
=if(M13="";range("c9:d9"))
yapmak istediğim m13 boş ise c9:d9 arasını sil diyorum kendi kafamdan yanlışlığı nedir?

 

[janveljan]

C9 ve D9 hücrelerine şuna benzer bir formül yazacaksınız.

=IF(M13="";"M13 boş ise buraya bu yazılacak";"")

 

[elektrik61]

yok yemedi sanırım rangeyi kullanamıyoruz

 

[metin_1]

Elektrik61 hocam siz tam olarak ne yapmak istiyorsunuz. hangi sayfada ki değerleri alacaksınız. Biz silmek yerine size yeni sayfa açalım bilgilerinizi oraya getirelim. Ama amacınızı tam olarak anlamamız lazım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki yöntemi denermisiniz.

A12:F12 aralığını seçin.
Biçim-Koşullu Biçimlendirme menüsünü açın.
İlk kutucuktan "Formül" seçeneğini seçin. Yandaki kutucuğa aşağıdaki formülü yazın.

=$D12=""

Aynı ekranda bulunan "Biçim" butonuna tıklayın.
Yazı Tipi sekmesinde bulunan "Renk" seçeneğinden beyaz rengi seçip tamam tuşlarına basıp işlemi tamamlayın.

Bu şekilde karşısı boş olan satırları beyaz renk yaparak yazıcıdan çıkmasını engelleyebilirsiniz.

 

[elektrik61]

korhan bey elimde ofis 2007 olduğu için ne yazık ki dediklerinizi yapamadım. 2007 deki karşılığını söylerseniz çok sevinirim

 

[elektrik61]

amacımı da açıklayayım bu arada arkadaşlar. yapmak istediğim kapak programı çok aşırı kullanılıyor. amacım unutalan hata yapıan yerler oluyor. istediğim satırları silmek istememim nedeni ise bazı sıraların bazı işlerde kullanılmaması.

 

[S.Yiğit]

korhan bey elimde ofis 2007 olduğu için ne yazık ki dediklerinizi yapamadım. 2007 deki karşılığını söylerseniz çok sevinirim

Eki inceler misiniz..

 

[elektrik61]

yiğit bey teşekkürler uygulamayı yaptım ama en son kullanabileceğim şey olarak bilir. kapak resmi olduğu için kalıpla fazla oynayamıyorum. soruyu bir de şöyle sorayım sayfa 1 belirli bir hücreye yazıyı yazdığım zaman sayfa 2 a12 den f12 ye kadar yeni bir satır oluşturup istediğim değerleri yazacak. yine sayfa 1 de başka bir hücreye değer girince sayfa 2 de a13 den f13 e kadar yeni bir satır oluşturup istediğim değerleri girecek
bu olabilir mi. benim için gerçekten önemli yardımlarınız için şimdiden teşekkürler