Satır Silme ve Açılan Kutu

[iso07]

Ã?ncelikle herkese merhaba,
Elimde 65bin küsur satırlık bir liste var, txt dosyasından excele aktardım. Her 61 satırdan sonra silmem gereken 3 satırlık kısımlar var, bunları tek seferde silebileceğim bir yol arıyorum.

Ayrıca bu listenin tamamını açılan kutuya nasıl sığdırabilirim, denediğimde 35bin küsurluk bir kısmını yerleştirebildim. Birde kutu içinde herhangi bir harfe bastığımda o harf ile başlayan kısma gitmesini nasıl sağlayabilirim.

Umarım anlatabilmişimdir derdimi, yardımcı olacak herkese şimdiden teşekkür ederim.

 

[omerceri]

silmen gereken satırlada tekrarlayan bir bilgi varmı ?

 

[iso07]

Evet var ama satır içindeki bilgilerin değil satırın silinmesini istiyorum, listenin arasında 3er satırlık boşluklar kalmaması için.

 

[omerceri]

silmek istediğin aynı bilginin olduğu satırları süzme işlemi ile süzdür,
satır numaralarından tıklayarak aşağa yani süzme işleminden sonraki satıra kadar seç ve sil tümünü göster dediğin zaman sadece o satırların silindiğini göreceksin
edit1:
satırları seçmene gerek yok sağ köşedeki A ve 1
arasında kalan ve tıklayınca bütün sayfayı seçen kısıma tıkla

 

[iso07]

Yapamadım maalesef :?

 

[Levent Menteşoğlu]

Ã?zellikle 250 kadar verinizi içeren bir dosya ile sorunuzu sorarsanız cevap vermek çok kolaylaşacaktır.

 

[omerceri]

süz veya filitre (seçeneği var excelin sürümüne göre) VERİ menüsünde

 

[iso07]

Ornek dosyada sayfa başlığı olan Fiyat Listesi kısımlarını aradan silmek istiyorum, 3er satırlık kısımları.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Kod A sütunundaki verilerin sadece sayı olmasına göre çalışmaktadır. Denemeyi mutlaka orijinal dosyanızın bir kopyası üzerinde gerçekleştirin.

[vb:1:67829dfa59]Sub sil()
For a = [a65536].End(3).Row To 4 Step -1
If IsNumeric(Cells(a, 1)) = False Or Cells(a, 1) = 0 Then Rows(a).Delete
Next
End Sub[/vb:1:67829dfa59]

 

[iso07]

Hepinize teşekkür ederim, omerceri arkadaşımızın gösterdiği yolu nihayet uygulayabildim ve işime yaradı, leventm arkadışımın verdiği kodu da deneyeceğim.