Satır değerini otomatik arttırma

[Argornst]

Merhabalar,

If iRow = 2 Then
ws.Cells(iRow, 1).Value = 1
ws.Cells(iRow, 2).Value = Me.TextBox1.Value
ws.Cells(iRow, 3).Value = Me.ComboBox_adsoyad.Value
ws.Cells(iRow, 4).Value = Me.ComboBox_gsebebi.Value
ws.Cells(iRow, 5).Value = Me.TextBox_aciklama.Value
ws.Cells(iRow, 6).Formula = "=VLOOKUP(C2,'YILLIK İZİNLER'!B1:M127,12,0)"

Else
ws.Cells(iRow, 1).Value = Worksheets("VERI").Cells(iRow - 1, 1) + 1
ws.Cells(iRow, 2).Value = Me.TextBox1.Value
ws.Cells(iRow, 3).Value = Me.ComboBox_adsoyad.Value
ws.Cells(iRow, 4).Value = Me.ComboBox_gsebebi.Value
ws.Cells(iRow, 5).Value = Me.TextBox_aciklama.Value
ws.Cells(iRow, 6).Formula = "=VLOOKUP(C3,'YILLIK İZİNLER'!B1:M127,12,0)"
End If

Düşey ara formulü içindeki "C" değerini otomatik artırma yapmaya çalıştım ancak başarısız oldum yardımlarınızı rica ederim.
Aslında yapmak istediğim "Me.ComboBox_adsoyad.Value" buradaki değeri VLOOKUP yapmak .

 

[Korhan Ayhan]

Deneyiniz.

ws.Cells(iRow, 6).Formula = "=VLOOKUP(""" & Me.ComboBox_adsoyad.Value & """,'YILLIK İZİNLER'!B1:M127,12,0)"

 

[Argornst]

Teşekkürler hocam