kelime için arama

[selcuk_c]

arkadaşlar

örnek :

excel123graaaa
excel12asgradad

bu şekilde olan hücrelerde gr den önceki bölümü nasıl ayırıp başka bir hücreye yapıştırabilirm. makro ile

excel123gr
excel12asgr

 

[Korhan Ayhan]

Selamlar,

Verileriniz A sütununda olduğunu varsayarsak aşağıdaki kodu kullanabilirsiniz. Yeni listelemeyi B sütununa yapar.

Sub AKTAR()
    Set WF = WorksheetFunction
    [B:B].ClearContents
    For X = 1 To [A65536].End(3).Row
    If Cells(X, 1) <> "" Then
    Cells(X, 2) = Mid(Cells(X, 1), 1, WF.Search("GR", Cells(X, 1), 1) + 1)
    End If: Next
    Set WF = Nothing
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[Necdet]

Bende uğraşmıştım ama Sayın COST_CONTROL çok hızlı

Verilerin A sütununda olduğu varsayımına ve ayırma işinin de B sütununa yazılacağı varsayılarak;

Public Sub Bul_Yaz()
On Error Resume Next
For i = 1 To [a65536].End(3).Row
    Bul = 0
    Bul = Application.WorksheetFunction.Find("gr", Cells(i, "A"))
    If Bul > 0 Then
        Cells(i, "B") = Left(Cells(i, "A"), Bul + 2)
    End If
Next i
End Sub

 

[Orion1]

arkadaşlar

örnek :

excel123graaaa
excel12asgradad

bu şekilde olan hücrelerde gr den önceki bölümü nasıl ayırıp başka bir hücreye yapıştırabilirm. makro ile

excel123gr
excel12asgr

Merhaba.
Sayın Üstadlarım yapmış ama benimkide başka bir çözüm.
Sayfa1'de A sütunundaki verileri ayırıp Bsütununa yazıyor.
Kodlar aşağıdadır.
İyi çalışmalar.

Sub ayir()
Dim sonsat As Long, i As Long, sat As Long
Dim harf As String, kelime As String
Sheets("Sayfa1").Select
Range("B:B").ClearContents
sonsat = Cells(65536, "A").End(xlUp).Row
sat = 1
For i = 1 To sonsat
    If Cells(i, "A").Value <> "" Then
        For k = 1 To Len(Cells(i, "A").Value)
            harf = Mid(Cells(i, "A").Value, k, 1)
            If harf = "g" And Mid(Cells(i, "A").Value, k + 1, 1) = "r" Then
                Cells(sat, "B").Value = kelime
                sat = sat + 1
                harf = "": kelime = "": Exit For
                Else
                kelime = kelime & harf
            End If
        Next k
    End If
Next i
MsgBox "&#304;&#350;LEM TAMAM"
End Sub

 

[selcuk_c]

hepinize çok teşekkürler

 

[kenanok]

Selamlar benimde benzer bir sorunum var şöyleki,

A1
28,06,10/002404/TEKİN ÖZBAY
03,06 492067 HSP İŞ MAKİNALAR
13.04/272409 İTFAYE DAİRE BSK

Yukarıdaki kümeden hücrelerin sağına, sadece isimleri almak istiyorum. Bunun için bir makro lazım. Sadece harfleri alan bir makro olabilir aslında.

Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub harfayir()
Set deg = CreateObject("VBscript.RegExp")
deg.Pattern = "[^a-zA-Z\çÇ\ğĞ\ıİ\öÖ\şŞ\üÜ ]"
deg.Global = True
For a = 1 To [a65536].End(3).Row
Cells(a, "b") = Trim(deg.Replace(Cells(a, "a"), ""))
Next
Set deg = Nothing
End Sub

 

[kenanok]

Aşağıdaki kodu deneyin.

Sub harfayir()
Set deg = CreateObject("VBscript.RegExp")
deg.Pattern = "[^a-zA-Z\çÇ\ğĞ\ıİ\öÖ\şŞ\üÜ ]"
deg.Global = True
For a = 1 To [a65536].End(3).Row
Cells(a, "b") = Trim(deg.Replace(Cells(a, "a"), ""))
Next
Set deg = Nothing
End Sub

Sonuç mükemmel teşekkürler..