Hücre içindeki verinin ":" den öncesinin silinmesi

[kelkitli]

Değerli Dostlar Selamlar,
Ekteki dosyada Sayfa1 A sütununda devamlı yenilenen verilerim var. Bu verilerin bir dögü ile 15 satırının ":" karekterinden önce yazılmış olan kısmının silinerek Sayfa2 2.satıra otomatik sıra numarası ile A sütununa göre en son dolu satıra kaydedilmesi gerekiyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    SATIR = S2.[A65536].End(3).Row + 1
    For X = 2 To 15
    If InStr(1, S1.Cells(X, 1), ":") > 0 Then
    BUL = WorksheetFunction.Find(":", S1.Cells(X, 1), 1) + 1
    VERİ = Trim(Mid(S1.Cells(X, 1), BUL, Len(S1.Cells(X, 1))))
    If WorksheetFunction.CountIf(S2.[B:B], VERİ) = 0 Then
    S2.Cells(SATIR, 1) = SATIR - 1
    S2.Cells(SATIR, X) = VERİ
    Else
    MsgBox "T.C. Kimlik No : " & VERİ & Chr(10) & Chr(10) & "Mükerrer kayıt işlemi !" & Chr(10) & "Lütfen kontrol ediniz.", vbCritical, "Dikkat !"
    GoTo Son
    End If
    End If
    Next
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
Son:
End Sub

 

[kelkitli]

Sayın Korhan Bey,
Çok teşekkür ederim. Çok güzel bir çalışma oldu. Sayfa2 B sütununda bir mükerrer engelleyici olsa çok iyi olur. Ancak Böyle de çok güzel. Elinize emeğinize sağlık. Bilginize hayranım. Keşke ben de birgün böyle eserler yapabilsem.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

Diğer dileğinize gelince;

Forumda verilen örnekleri inceleyip en azından kodları bakarak elle yazmanız bile size birşeyler katacaktır. Azimle yaklaştığınız sürece üstesinden gelemeyeceğiniz birşey olduğunu zannetmiyorum. Sabırla örnekleri inceleyin ve bol bol pratik yapmaya çalışın. Kısa sürede kendinizdeki gelişime sizde hayret edeceksiniz.

 

[kelkitli]

Sağolun Korhan Bey,
İyi ki siz ve size benzer insanlar ulaşabildiğimiz bir yerdesiniz.