merhaba berduş
Private Sub DikdörtgenKöşeleriYuvarlatılmış2_Tıkla()
On Error Resume Next
If Sheets("mix").Cells(2, 8) > 0 Then
Sheets("mix").Cells(2, 22) = Application.WorksheetFunction.VLookup(Sheets("mix").Cells(2, 8), Sheets("mix").Range("AA1:AB15"), 2, 0)
Else
MsgBox "Kayıt Bulunamadı"
End If
End Sub
olarak düzenledim. sadece V2 hücresinde çalışıyor. V:V sütünunun tamamın da çalışması için ne ilave etmem gerekir.
07-08-2009 tarihinden beri AccessTr.neT üyesidir.