vba da Yıldız Karakteri (*)

[burhanyildirim11]

selam arkadaşlar ,

a sutununda arasında altçizgi olan kelimeler var ( kalem-kırmızı) ( defter-mavi) vs şeklinde

normalde bul komutunda -* yapınca ilk kelimelere göre getirtebiliyorum.

vba da bunu nasıl yaparız ,

yani vba da tireden sonra ne olursa bulsun yıldız karakterinin kodunu nasıl yazabılırım

ipucu verebılırmısınız teşekkur ederim ..

 

[Korhan Ayhan]

Aşağıdaki gibi olabilir.

Option Explicit

Sub Find_All()
    Dim Search_Data As Range, Search_Adress As String
    
    Set Search_Data = Cells.Find("-", LookAt:=xlPart)
    
    If Not Search_Data Is Nothing Then
        Search_Adress = Search_Data.Address
        Do
            MsgBox Search_Data.Value
            Set Search_Data = Cells.FindNext(Search_Data)
        Loop While Not Search_Data Is Nothing And Search_Data.Address <> Search_Adress
    End If

    Set Search_Data = Nothing
End Sub

 

[burhanyildirim11]

Aşağıdaki gibi olabilir.

Option Explicit

Sub Find_All()
    Dim Search_Data As Range, Search_Adress As String
   
    Set Search_Data = Cells.Find("-", LookAt:=xlPart)
   
    If Not Search_Data Is Nothing Then
        Search_Adress = Search_Data.Address
        Do
            MsgBox Search_Data.Value
            Set Search_Data = Cells.FindNext(Search_Data)
        Loop While Not Search_Data Is Nothing And Search_Data.Address <> Search_Adress
    End If

    Set Search_Data = Nothing
End Sub

teşekkürler