• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

elektrik61

Altın Üye
Katılım
19 Kasım 2009
Mesajlar
80
Excel Vers. ve Dili
2007
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?
 
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.
 
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
 

Ekli dosyalar

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.

Kod:
Range("A12:F12").ClearContents
 

Ekli dosyalar

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
 
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

Kod:
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
 
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
 
ü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?
 
C9 ve D9 hücrelerine şuna benzer bir formül yazacaksınız.

=IF(M13="";"M13 boş ise buraya bu yazılacak";"")
 
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.
 
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.

Kod:
=$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.
 
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
 
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ı.
 
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
 
Geri
Üst