satır silme kodu?

[imported_ahmet tunalı]

Merhaba,
ek de verdiğim demir isimli sayfanın yanlızca 1ve 2 satırını hangi kodla
silebilirim.
Rows("1:2").Select
Selection.Delete Shift:=xlUp
kodu ile silemedim.
Teşekkürler

 

[ahmet79]

aşağıdaki kodu 2 defa yazmak çözüm oluyor denedim

Sheets("demir").Rows(1).Delete
Sheets("demir").Rows(1).Delete

 

[ahmet79]

yada aşağıdaki gibi de oluyor

Sheets("sayfa1").Rows("1:2").Delete

 

[bedersu]

Merhaba,
İkinizin de verdikleri kodlar iş görür aslında.Sayın ahmet tunalı verdiği kodları neden çalıştıramadı anlayamadım.Mantık aynı aslında.Hatta ben denedim çalıştı.Nasıl bir sorun oluyor o kodlarda anlatır mısınız?

 

[Kemal Demir]

bende bole birşey yollucam ama arkadaslar daha ıyısını yapmıs benımkı sadece gorsellık katıyor

SaygıLAr


Not:
Belirtilen Değer
5:5 gibi veya 2:8 (5'ten 5'e veya 2'den 8'e gibi)
: olmalı

 

[imported_ahmet tunalı]

günaydın,
her iki kodu denedim yanlız düğmeleri siliyor iki adet malzeme 1 ve malzeme 2 altındaki lerini silemiyor?
Teşkkürler

 

[Kemal Demir]

Tam anlayamadım Dosyana bakabilirmiyim Elimden geleni yaparım
Dosyayı Ziplersen bakabilirim
SaygıLar

 

[zafer]

Merhaba

Satırı silmek değilde siz satırı temizlemek istiyorsunuz herhalde

sheets("demir").Rows("1:2").ClearContents

 

[imported_ahmet tunalı]

ilgilenen herkese teşekkürler ancak sorunu çözemedim .
nerde hata yapıyorum bilemiyorum.
dosyayı ekliyorum
zafer beyin söylediği gibi 1 ve 2 satırı tamamen silmek istiyorum.
teşekkürler

 

[zafer]

Merhaba

Burada sadece nesneler var. siz 1 ve 2. satırda ne yazıyorsunuzda silmek istiyorsunuz.Hücre adresi nedir.

Gönderilen kod
a1 den IV2 ye kadar hücrelerdeki bütün verileri siler.Nesneler durur

 

[Ongun]

Kod: Sub sil()
For i = Cells(65536, 1).End(xlUp).Row To 2 Step -1
If Trim(Cells(i, 1)) <> "SARF FİÞİ" And Trim(Cells(i, 1)) <> "TOPTAN SATIÞ İRSALİYESİ" Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next i
End Sub

bu kod belki işinize yarayabilir üzerinde değişiklik yaparak kendinize uyarlıyabilirsiniz. kolay gelsin

 

[imported_ahmet tunalı]

zafer bey nesneleride silmesini istiyorum.
Teşkkürler

 

[zafer]

Merhaba

sheets("demir").DrawingObjects.Delete
sheets("demir").Rows("1:2").ClearContents