Dolu Hücreleri Taşı

[AlpGD]

Merhaba arkadaşlar,

2 sutunda gsm noları var bunların arasında da boş hücreler var, dolu A ve B sutunlarındaki dolu hücreleri C sutununa sırayla taşımak için kullanmam gereken VB kodu ne olmalıdır ?

Bir de çözmeme rağmen daha pratik bir yol olduğunu biliyorum ve yardımcı olursanız ;

yine A ve B sutununda 0212XXXXXXX veya 212XXXX veya 216 gibi yani sabit telefon numaraları ve 05XXXXXXXX formatındaki gsm numaraları var. Burada sabit telefonlar çok farklı formatlarda olduğu için en mantıklı olanı sanırım 05 ve 5 serisi ile başlayan gsm no ları ile yola çıkmak.

Konu ise sabit telefon numaralarını listeden bulup sildirmek.

İlginiz için şimdiden teşekkürlerimi sunar, iyi çalışmalar dilerim.

 

[bedersu]

Merhaba,
Şu kodları bir deneyin:

sub taşı()
satır = 0
For Each hücre In Range("A1:B50")
If hücre <> "" Then satır = satır + 1
If hücre = "" Then GoTo devam:
Cells(satır, 3) = hücre
devam:
Next
end sub

 

[Necdet]

Cep Telefonlarını Aktar

Merhaba,

Sayın bedersu yanıtı vermiş, benzer çalışma parametrik olması açısından ekliyorum.

Telefonlar A ve B sütunlarında olduğuna göre hangi sütunda daha çok var sa döngüyü ona göre kurmaya çalıştım.

Sub Tasi()
Sat1 = [a65536].End(3).Row
Sat2 = [B65536].End(3).Row
If Sat1 > Sat2 Then i = Sat1
If Sat2 > Sat1 Then i = Sat2
If Sat1 = Sat2 Then i = Sat1
Range("C:C").ClearContents
For Each Hücre In Range("A1:B" & i)
If Left(Hücre, 1) = 5 Or Left(Hücre, 2) = 5 Then
    C_Satir_No = C_Satir_No + 1
    Cells(C_Satir_No, "C") = Hücre
End If
Next
End Sub

 

[AlpGD]

Syn. bedersu ve Syn. Necdet_Yesertener, her ikinize de çok çok teşekkür ediyorum. Her iki çözüm örneği de gayet güzel çalışıyor ve bu kodlardan öğrenmem gereken çok şey var

Tekrar ilginize çok teşekkür ediyor ayrıca yanıtlamadaki hızınızdan dolayı da tebrik ediyorum.

İyi ki varsınız
Saygılar...