Rakamla Başlıyorsa şunu yap Başlamıyorsa şunu yap

[yeniyetme]

merhaba arkadaşlar.....
sormak istediğim soru şu site arama yaptım ama istediğimi bulamadım.( belkide arama kriterlerini tam yapamadım. )

diyelimki a sütünunda 1- 1,2- 1,3-3-4-5-6-5,6 - ahmet - mehmet fadime - şakir - haydar - şevki gibi isimler şu.

vermek istediğim komutta
eğer a sutunundaki bilgi rakam ile başlıyorsa sayfa 2 ye ekle ve yanına
" deneme" yazssın
rakam ile başlamıyorsa sayfa 3 ' e olduğu gibi yazsın.
yani ilk komutu vediğimde sayfa 2 a1 sütünunun değeri "1 deneme"
a2 nin değeri "1,2 deneme" olsun inşallah anlatabilmişimdir. yardımlarnınızı bekliyorum arkadaşlar.


diğer bir konuda

For SUT = 2 To Cells(65536, "N").End(3).Row
If Not WorksheetFunction.CountIf(Range("N1:N" & SUT), Cells(SUT, "N")) > 1 Then
S = S + 1
Cells(S, "A") = Cells(SUT, "N")
End If
Next

yukarıda yazılan makroda if ile başlayan satırın açılımını yapabilecek arkadaş olursa çok sevinicem. kendi projemde kullanmak istiyorum ama tam olarak çözemedim..

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub LİSTELE()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    Set S3 = Sheets("Sayfa3")
    S1.Select
    S2.Columns(1).ClearContents
    S3.Columns(1).ClearContents
    Satır1 = 1
    Satır2 = 1
    For X = 1 To [A65536].End(3).Row
    If IsNumeric(Mid(Cells(X, 1), 1, 1)) Then
    S2.Cells(Satır1, 1) = Cells(X, 1) & " deneme"
    Satır1 = Satır1 + 1
    Else
    S3.Cells(Satır2, 1) = Cells(X, 1)
    Satır2 = Satır2 + 1
    End If
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    Set S3 = Nothing
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[zafer]

Merhaba

2.sorunuzun cevabı

İşlevlerseki Eğersay formülü

açılımı.
Eğer N sütünunda aradığınız değer 1 den büyükse işlem yap

For SUT = 2 To Cells(65536, "N").End(3).Row
'N sütunundaki en son satır numarasını al
If Not WorksheetFunction.CountIf(Range("N1:N" & SUT), Cells(SUT, "N")) > 1 Then
'Eğer N1 ile N'nin en son satır numarası arasında döngüdeki satır numarasındaki değer 1'den çoksa
S = S + 1
'S değişkenini 1 artır
Cells(S, "A") = Cells(SUT, "N")
'A sütunununa yaz.

Yani kodlara toptan bakarsak sizin N sütununuzda bir birinin aynı bir çok veri var bunları ayıklayıp A sütünuna yazdırıyor

 

[Kemal Demir]

Günaydın,

Dosyayı inceleyiniz.

Umarım faydalı olur.

 

[yeniyetme]

sn :korhan bey

sn : zafer bey

sn : rakkas bey

ilgilerinize çok teşekkür eder çalışmalarınızda başarılar dilerim.

bartından sevgiler saygılar sunuyorum..