a sütununa otomatik veri yaz

[zulfuernek]

textbox 1 e yazdığım yazının ilk harfini alarak (mesela: ahmet ise A olacak) yanına ise a harfinde en son kaçta kalmışsa sıradaki numarayı verebilecek bir formül varmıdır.

A 1, A 2, A 3, B 1, B 2, B 3 diye gidecek.

harfle rakam arasında bir boşluk olmalı.

bunları buton yardımıyla yapacağım

saygılarımla.

 

[Murat OSMA]

Merhaba,

Butona bu kodları yapıştırın ve UserForm'daki TextBox'a istediğiniz harfi yazıp butona basın.

[SIZE="2"]Private Sub CommandButton1_Click()
    Dim son&, bul, sayi&
    If Not IsNumeric(TextBox1.Value) Then
    son = Cells(Rows.Count, "A").End(3).Row + 1
    bul = Evaluate("=LOOKUP(9.99E+307,SEARCH(""" & TextBox1.Value & "*"",A1:A65536),A1:A65536)")
        If IsError(bul) Then
            Range("A" & son).Value = _
            Replace(Replace(UCase(TextBox1.Value), "ı", "I"), "i", "İ") & " 1"
            Exit Sub
        End If
        sayi = Split(bul, " ")(1)
        sayi = sayi + 1
        Range("A" & son).Value = _
        Replace(Replace(UCase(TextBox1.Value), "ı", "I"), "i", "İ") & " " & sayi
    Else
        MsgBox "Veri Yalnızca Harf ile Başlayabilir.", vbCritical, "[URL="https://excelturkey.com"]Www.ExcelTurkey.Com[/URL]"
    End If
    sayi = Empty: son = Empty: bul = vbNullString
End Sub[/SIZE]