hücrelerin silinmesi

[yeniaslan]

vermiş olduğum excel çalışma kitabında değişik sayfalarda sarı renk ile işaretlemiş olduğum hücrelerin bir tıklama ile silinmesi işlemini yapamıyorum bu konuda yardımcı olursanız sevinirim... saygılarımla

not sadece sarı renk olan hücreler.

 

[Necdet]

Sayfada Belli Sınırları Silmek

Merhaba,

Aşağıda örneğini verdiğim kodların her birini ilgili sayfada bir butona bağlayabilirsiniz.

Örnek olarak hazırladım, eksikliklerini yada başka sayfada olanları siz buna benzeterek yapabilirsiniz.

Sub Sil_iplik_1_2_laminasyon()
Sheets("İPLİK 1-2 LAMİNASYON").Select
Range("H6:H12", "I13:I15", "J9", "H30:H36", "I37:I39", "J33").ClearContents
End Sub

Sub sil_yapistirma1()
Sheets("YAPIŞTIRMA 1").Select
Range("B3:D59", "G3:G59", "L3:LG59", "M12").ClearContents
Range("B64:D111", "G64:G111", "L64:L111", "M72").ClearContents
End Sub

 

[yeniaslan]

Merhaba,

Aşağıda örneğini verdiğim kodların her birini ilgili sayfada bir butona bağlayabilirsiniz.

Örnek olarak hazırladım, eksikliklerini yada başka sayfada olanları siz buna benzeterek yapabilirsiniz.

Sub Sil_iplik_1_2_laminasyon()
Sheets("İPLİK 1-2 LAMİNASYON").Select
Range("H6:H12", "I13:I15", "J9", "H30:H36", "I37:I39", "J33").ClearContents
End Sub

Sub sil_yapistirma1()
Sheets("YAPIŞTIRMA 1").Select
Range("B3:D59", "G3:G59", "L3:LG59", "M12").ClearContents
Range("B64:D111", "G64:G111", "L64:L111", "M72").ClearContents
End Sub

ilginize teşekkür ederim. yanlız range yazan yerde sürekli hata veriyor.
benim office 2003 sizinki farklımı. ?
yada zahmet olmazsa yapıp dosya olarak gönderebilirmisiniz.
saygılarımla.

 

[Erdal]

merhabalar
İplik 1-2 laminasyon sayfası için aşağıdaki kodları kullanın diğer sayfalar içinde benzer şekilde uyarlayabilirsiniz. İyi çalışmalar
Private Sub CommandButton1_Click()
Range("h6:h12").Value = ""
Range("ı13:ı15").Value = ""
Range("j9").Value = ""
Range("h30:h36").Value = ""
Range("ı37:ı39").Value = ""
Range("j33").Value = ""
Range("a53").Value = ""
Range("h54:h65").Value = ""
Range("ı66:ı68").Value = ""
Range("j53").Value = ""
Range("j56").Value = ""
Range("j59").Value = ""
Range("f72:f74").Value = ""
Range("ı72:ı74").Value = ""
Range("a82").Value = ""
Range("h83:h94").Value = ""
Range("ı95:ı97").Value = ""
Range("j82").Value = ""
Range("j85").Value = ""
Range("j88").Value = ""
Range("f101:f103").Value = ""
Range("ı101:ı103").Value = ""
End Sub

 

[conari]

eksik bir yer var ise ekleyiniz.

Sub boşalt()
    Range("H6:H12,I13:I15,J9:J12").Select
    Range("H6:H12,I13:I15,J9:J12,H30:H36,I37:I39,J33:J36").Select
    Range( _
        "H6:H12,I13:I15,J9:J12,H30:H36,I37:I39,J33:J36,A53:B53,H54:H65,I66:I68,J53:K54,J56:K57,J59:K60" _
        ).Select
    Range( _
        "H6:H12,I13:I15,J9:J12,H30:H36,I37:I39,J33:J36,A53:B53,H54:H65,I66:I68,J53:K54,J56:K57,J59:K60,F72:G74,I72:I74,A82:B82,H83:H94,I96,I95,I97,J82:K83,J85:K86,J88:K89" _
        ).Select
    Range( _
        "H6:H12,I13:I15,J9:J12,H30:H36,I37:I39,J33:J36,A53:B53,H54:H65,I66:I68,J53:K54,J56:K57,J59:K60,F72:G74,I72:I74,A82:B82,H83:H94,I96,I95,I97,J82:K83,J85:K86,J88:K89,F101:G103,I101:I103" _
        ).Select
    Selection.ClearContents
    Range("a1").Select
End Sub

 

[yeniaslan]

merhabalar
İplik 1-2 laminasyon sayfası için aşağıdaki kodları kullanın diğer sayfalar içinde benzer şekilde uyarlayabilirsiniz. İyi çalışmalar
Private Sub CommandButton1_Click()
Range("h6:h12").Value = ""
Range("ı13:ı15").Value = ""
Range("j9").Value = ""
Range("h30:h36").Value = ""
Range("ı37:ı39").Value = ""
Range("j33").Value = ""
Range("a53").Value = ""
Range("h54:h65").Value = ""
Range("ı66:ı68").Value = ""
Range("j53").Value = ""
Range("j56").Value = ""
Range("j59").Value = ""
Range("f72:f74").Value = ""
Range("ı72:ı74").Value = ""
Range("a82").Value = ""
Range("h83:h94").Value = ""
Range("ı95:ı97").Value = ""
Range("j82").Value = ""
Range("j85").Value = ""
Range("j88").Value = ""
Range("f101:f103").Value = ""
Range("ı101:ı103").Value = ""
End Sub

allah senden razı olsun
diğer sayfalar için sadece bu range yazan yerlerdeki hücre ismlerini değiştirmemiz yeterlimi. yoksa farklı işlemler varmı...

 

[Necdet]

LG59 yazmışım L59 olacaktı tabi hata verir.

 

[Erdal]

merhaba
sadece hücre isimlerini değiştirmeniz yeterli.Ayrıca kodları alt alta yazmak istemiyorsanız kodları Range("h6:h12","ı13:ı15",...).value=" " şeklindede yazabilirsiniz. (sn Necdet bey ALLAH sizden razı olsun bu şekilde yazmayı şimdi sizden öğrendim.)

 

[conari]

("h6:h12","ı13:ı15",...).value=" "
yerine
("h6:h12,ı13:ı15",...).value=" "
şeklindede olabilir yani " başta ve sonda.

 

[Erdal]

teşekkürler sn conari
bu forumda her dakika birşeyler öğreniyorum

 

[yeniaslan]

teşekkür ediyorum arkadaşlar somer arkadaşımın verdiği ilk kodlar işimi halletti.