- Katılım
- 22 Mayıs 2009
- Mesajlar
- 1,017
- Excel Vers. ve Dili
- Office 2003
Sub bul()
Dim k As Range
Sheets("bordro").Range("E11").Value = ""
Set k = Sheets("bilgi").Range("c24:l110").Find(Sheets("bordro") _
.Range("C11").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Range("E11").Value = k.Offset(0, 1).Value
End If
End Sub
c11 hücresini C11 : C 109 olarak
e11 hücresinide e11:e109 olarak sütunlarda çalışmak istiyorum
Çünkü yukarıdaki hali ile sadece hücre ile çalışmakta makro
Dim k As Range
Sheets("bordro").Range("E11").Value = ""
Set k = Sheets("bilgi").Range("c24:l110").Find(Sheets("bordro") _
.Range("C11").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Range("E11").Value = k.Offset(0, 1).Value
End If
End Sub
c11 hücresini C11 : C 109 olarak
e11 hücresinide e11:e109 olarak sütunlarda çalışmak istiyorum
Çünkü yukarıdaki hali ile sadece hücre ile çalışmakta makro
