Vba Düşey ara

[ankara34]

Günaydın arkadaşlar

kendimi geliştirmek adına kod yazmaya çalışıyorum
bir yerde takıldım yardımcı olabilirseniz sevinirim.

A1 hücresinde " #veli okulu bırakmadı " ( tırnaklar yok )
şeklinde bir ifadem var

başka bir tablodan #veli ifadesini düşey ara ile A1 hücresi üzerine yazdırmak istiyorum..


bunu vba da nasıl tanımlıyabilirim ?

 

[NBATMAN]

Merhaba,

VBA kod > Worksheets("Sizin Sayfanızın Adı").Range("A1").Value =Application.WorksheetFunction.VLookup(“#veli okulu bırakmadı”, Worksheets("Sizin Sayfanızın Adı").RangeRange(“A:F”), 5,0)
Excel formül> =DÜŞEYARA("#veli okulu bırakmadı";A:F;5;0)

 

[ankara34]

Merhaba,

VBA kod > Worksheets("Sizin Sayfanızın Adı").Range("A1").Value =Application.WorksheetFunction.VLookup(“#veli okulu bırakmadı”, Worksheets("Sizin Sayfanızın Adı").RangeRange(“A:F”), 5,0)
Excel formül> =DÜŞEYARA("#veli okulu bırakmadı";A:F;5;0)

sayın NBATMAN teşekkür ederim ilginiz için yoğunluktan buraya giremedim ,
dediğiniz gibi yaptım ama beceremedim


örnek dosya ekledim ..

siz veya musait olan arkadaşlarımız yardımcı olabilirlerse çok sevinirim..

iyi akşamlar

forum.xlsx dosyasını indir - download

forum.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Necdet]

Merhaba,
Kodları inceleyin ve kendinize uyarlayın.

Public Sub AraBul()

Dim c   As Range, _
    i   As Long, _
    j   As Long

For i = 1 To Cells(Rows.Count, "A").End(3).Row
    Set c = Range("C:c").Find(Cells(i, "A"), Lookat:=xlPart)
    If c Is Nothing Then
        MsgBox "Aranan Değer : " & Cells(i, "A") & " BULUNMADI ..."
    Else
        MsgBox "Aranan Değer : " & Cells(i, "A") & " " & c.Row & ". Satırda Bulunuyor.."
    End If
Next i

End Sub

 

[ankara34]

Merhaba,
Kodları inceleyin ve kendinize uyarlayın.

Public Sub AraBul()

Dim c   As Range, _
    i   As Long, _
    j   As Long

For i = 1 To Cells(Rows.Count, "A").End(3).Row
    Set c = Range("C:c").Find(Cells(i, "A"), Lookat:=xlPart)
    If c Is Nothing Then
        MsgBox "Aranan Değer : " & Cells(i, "A") & " BULUNMADI ..."
    Else
        MsgBox "Aranan Değer : " & Cells(i, "A") & " " & c.Row & ". Satırda Bulunuyor.."
    End If
Next i

End Sub

Necdet bey elinize sağlık


Public Sub AraBul()

Dim c As Range, _
i As Long, _
j As Long

For i = 1 To Cells(Rows.Count, "A").End(3).Row
Set c = Range("C:C").Find(Cells(i, "A"), Lookat:=xlPart)
If c Is Nothing Then

Else
Range("A" & i).Value = Range("C" & i).Value

End If
Next i

End Sub


dediğiniz kodu uyarlamaya çalıştım.

A1 sütununda ki , veriler arasında aramada kullanılmayan verilerde var satırlar arasında boşluklar vs de var ,
(benim yaptıgım gibi oldugunda alt alta verileri sıralıyor)

yani A1 sütunundaki veri C sutununda varsa

C sutunundaki veriyi kendi yerine yani A1 hücresine yazsın . yoksa hiç bir şey yapmasın

bunu nasıl formülize edebilirim yardımcı olabilirmisiniz ?

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Test()
    Dim Rng As Range, Find_Data As Variant
    
    For Each Rng In Sheets("Sayfa1").Range("A1:A5")
        On Error Resume Next
        Find_Data = ""
        Find_Data = WorksheetFunction.VLookup(Rng.Value & "*", Sheets("Sayfa1").Range("C:C"), 1, 0)
        On Error GoTo 0
        If Find_Data <> "" Then
            Rng.Value = Find_Data
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ankara34]

Alternatif;

Option Explicit

Sub Test()
    Dim Rng As Range, Find_Data As Variant
   
    For Each Rng In Sheets("Sayfa1").Range("A1:A5")
        On Error Resume Next
        Find_Data = ""
        Find_Data = WorksheetFunction.VLookup(Rng.Value & "*", Sheets("Sayfa1").Range("C:C"), 1, 0)
        On Error GoTo 0
        If Find_Data <> "" Then
            Rng.Value = Find_Data
        End If
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

teşekkür ederim eliniz sağlık

sorun çözüldü