Seçim Ekle

[ouney06]

arkadaşlar 7000 satırlık bir dosya üzerinde çalışıyorum, belirli kriterlere uyan kayıtları seçmek istiyorum ama başaramıyorum
for i=1 to 7000 step atla (atla bana lazım olan kriter oluyor)

rows(i).select

next

diyorum ama haliynen tek satırı seçiyor
bu seçime başka satırlarıda seçerek eklemek istiyorum ve yardımlarınızı bekliyorum
teşekkür ederim

 

[Kemal Demir]

Sn.ouney06,

Örnek Bir Dosya Eklermisin 7000 lik değilde küçük bir dosya eklersenız yardımcı olan arkadaslar cıkacaktır.

 

[Kemal Demir]

Belki Size Yol gösterebilir diye düşündüm kuçük bir çalışmayı paylaşmak istiyorum.
Umarım İşinizi Görür.

 

[ouney06]

Sevgili ARakkas,
Örnek kod için teşekkür ederim ama bana gerekli olan şey döngünün içerisinde satır seçmek ve bu seçilmiş satırlara kritere uyan diğer satırları ekletmek

 

[Kemal Demir]

Sn.ouney06,

Örnek AMaçlı Bir Dosya hazırlarsanız yardımcı olmayacalısırım/calısırız.

 

[ouney06]

Bu çalıştığım dosyamın çok küçük bir özeti, gerçek dosya 7000 satırdan oluşuyor
Yapmak istediğim şey ise şu, 1. sütundaki verileri tek tek kontrol edecek ve farklı bir isme geçtiği zaman bu iki isim arasına boşluk bırakacak bir makro yazmak. Yardımcı olursanız sevinirim.
3. sütundaki sayılar kaç satır sonra aynı ismin kaç kez keçtiğini belirtiyor.

 

[ouney06]

Satır seçmek başlığını açtım çünkü bu soruyu sorarken ilk sütunda isim değiştiği zaman o satırı seçerek dosyanın sonuna kadar gitmesini ve daha sonra ekle komutunu mouse ile kendim vermeyi istedim, ama madem örneği hazırladık artık ekleyerek komutu tamamlamasını da düşünebilirim

yardımlarınıza şimdiden teşekkür ederim

 

[Ali]

Aşağıdaki kodu deneyin

Sub çift_kayıtlari_arala()
toplamsatır = ActiveSheet.UsedRange.Rows.Count
For Row = toplamsatır To 2 Step -1
If Cells(Row, 1).Value <> Cells(Row - 1, 1).Value Then Rows(Row).Insert
Next Row
End Sub

 

[ouney06]

çok teşekkür ederim fructose,

 

[Kemal Demir]

Sn.ouney06, ve Sn.fructose, Sizler den Özür Dileyerek

Kodu Siliyorum.

Test ettim sorun var verdiğim kodu biri kullanıyorsa bu işlem için

kullanmasın.Forumdaki arkadaslardan özür dilerim.

 

[Ali]

Rica ederim Rakkas

Bende uzun bir kod ile uğraşmıştım ama bu soru daha önce bir arkadaş tarafından sorulmuştu. Sn Veyselemre pratik bir öneri yapmıştı. Bir teşekkürde kendisine :hey:

 

[Kemal Demir]

Sn.ouney06 veSn.fructose Size Biraz geç döndüm ama soru kafamda yara yaptı.

Çözümü sizinle paylaşmaktan mutluluk duyarım

Not: kod sadece A kolonuna göre geçerlidir.

[vb:1:7c0592fdf2]Sub Macro1()

i = 1
Do While Cells(i + 1, 1) <> ""
If Cells(i, 1) <> Cells(i + 1, 1) Then
Rows(i + 1).Select
Selection.Insert Shift:=xlDown
i = i + 1
End If
i = i + 1
Loop
End Sub[/vb:1:7c0592fdf2]