Search

[semih4]

Merhaba arkadaşlar ;

VBA de mesela 5 sayısını A stunun 1 ile 21 . satırları arasında arıyorum 7. satırda bulduysa B stunundeki 7. değeri bir yere yazacağım bunu nasil yapabilirim?

Teşekkürler ilginiz için.

 

[Orion1]

Buyurun.

Sub ara_59()
Dim k As Range
Set k = Range("A1:A21").Find(5, , xlValues, xlWhole)
If k Is Nothing Then
    MsgBox "5 Bulunamadı!!", vbCritical, "U Y A R I"
    Else
    MsgBox k.Offset(0, 1).Value, vbOKOnly + vbInformation
End If
Set k = Nothing
End Sub

 

[semih4]

Sheets("Sheet1").Cells(j + 1, i + 2) = Priortiy(j)
Set k = Sheets("RESULTS").Range("A1:A21").Find(Priortiy(j), , xlValues, xlWhole)
Sheets("Sheet1").Cells(j + 1, i + 1) = Sheets("RESULTS").Cells(k, 2)


Sanırım sunda bir yanlıslık var bulamadım;
ilginiz için çok teşekkür ederim.

 

[semih4]

Nerde hata var ya , lerin biri silinecek onun dısında mismatch hatası veriyor cıldırıcam =)

 

[Necdet]

Merhaba,

Sheets("Sheet1").Cells(j + 1, i + 1) = Sheets("RESULTS").Cells(k, 2)

satırındaki k bir range. k.Row olarak kullanınız. Çünkü bulduğunuz k hücresinin satır numarasını kullanıyorsunuz.