excelde satır silme

[ildizim]

exceldeki çift satıları silmek gereken bir macroya çok acilihtiyacım var .
Ã?rneğin:2,4,6,8,10... minumum 3000. satıra kadar .
Yardımlarınızı rica ederim.

 

[Serpily]

Sub sil()
For i = 2 To Cells(65536, 1).End(xlUp).Row
Rows(i).Select
Selection.Delete
Next i
End Sub

Eğer satırın tamamı değil de sadece içeriği silinecekse

Selection.Delete

satırının yerine

Selection.ClearContents

yazınız.

 

[ildizim]

COK TEÞEKKÜR EDERİM MACRO TAM İÞİMİ GÃ?RDÜ HARİKASIN

 

[Serpily]

Mutlusun = Mutluyum :icelim:

 

[Levent Menteşoğlu]

arkadaşlar bir uyarı yapmak istiyorum

rows(i).clear şeklinde tüm satırlardaki değerleri silecektir. Bunun için çevrim

örneğin; for i=2 to 3000 step 2 şeklinde olmalıdır.

ayrıca küçük bir öneri aşağıdaki şekilde işlem süresi kısalacaktır.

Sub sil()
For i = 2 To Cells(65536, 1).End(xlUp).Row
Rows(i).Delete
Next i
End Sub

selamlar

 

[ALPEN]

Sn. leventm son kodda step 2 yi koymayı unutmuş.

Sub sil() 
For i = 2 To Cells(65536, 1).End(xlUp).Row step 2
    Rows(i).Delete 
Next i 
End Sub

 

[Levent Menteşoğlu]

Sn ALPEN

Soruda sadece çift satırların silinmesi istendiğinden step 2'yi "delete" işlemi olduğu için eklemedim. Çünkü delete işleminde satırı tamamen sildiğinden çift sayılı satırdaki değerler tek satıra geçiyor. Hata, ilk hücreyi sildikten sonra başlıyor. Fakat step 2'yi eklemeyince sadece çift satırlarda olan değerler silinmiş oluyor. Sanırım sn Serpily bu nedenle step 2'yi kullanmadı. Fakat işlem "clearcontents" olduğunda step 2'yi ilave zorunlu olacaktır.

saygılarımla

 

[ALPEN]

ok o zaman şöyle yapalım

Sub sil() 
For i = Cells(65536, 1).End(xlUp).Row to 2  step -2 
    Rows(i).Delete 
Next i 
End Sub

not: denemedim.

edit:

son satırın tek olma ihtimaline karşın

Sub sil() 
z= Cells(65536, 1).End(xlUp).Row
if z mod 2 = 1 then z = z -1
For i = z to 2  step -2 
    Rows(i).Delete 
Next i 
End Sub

not: bunuda denemedim.

 

[Levent Menteşoğlu]

Sn ALPEN

bende tam son satır tek olursa diye yazacaktım cevabınız benden önce geldi.

çözümü denedim sorun yok

 

[ildizim]

iyiki bu web sayfası yapılmış ve sizler varsınız.

Birazdan olurmu olmazmı diye cok kafa yordugum fakat macrodan öyle pek anlamadığım için vazgeçtiğim bir sorunum ekli bir dosya ile onu göndereceğim eminim cözüm bulacaksınız.