Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Microsoft Excel 2007 => Konuyu başlatan: bitirme - 31 Mart 2013, 01:13:42
-
Merhaba arkadaşlar
ekteki dosyada yardımınızı bekliyorum. yapmak istediğimi açıklamaya çalıştım umarım bana yardım edebilecek birileri vardır
teşekkürler..
-
yardımcı olabilcek kimse yok mu ?
-
Formülle bunu yapmak mümkün değil sanırım. Aşağıdaki kod işinizi görür mü?
Public Sub AraBul()
Dim R As Range
For Each R In Range("A:A")
If R.Value = Range("E2").Value Then
Range("E3").Value = Cells(R.Row, R.Column + 1)
Exit Sub
ElseIf R.Value = Range("F2").Value Then
Range("F3").Value = Cells(R.Row, R.Column + 1)
Exit Sub
End If
Next
End Sub