Eğer Makrosu Hakkında

[Baggwell]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim carp, sAdet As Integer
sAdet = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A2:A65000")) + 1
    If Target.Column = 1 Then
        For i = 1 To 2
            On Error GoTo hata
                If i = 3 Then
                    Target.Offset(0, i).Value = _
                    WorksheetFunction.VLookup(Target.Value, _
                    Sheets("Sayfa1").Range("A2:F" & sAdet), i + 1, 0)
                Else
                    Target.Offset(0, i).Value = _
                    WorksheetFunction.VLookup(Target.Value, _
                    Sheets("Sayfa1").Range("A2:F" & sAdet), i + 1, 0)
                End If
        Next i
    End If
    Exit Sub
hata:
    
End Sub

Eğer Data Sayfasında E4=DOĞRU ise Sayfa2'de düşeyara yapmak istiyorum.
Yardımcı olursanız sevinirim.

Teşekkürler

 

[Huseyinkis]

Yukarıdaki formül amacı nedir tam anlayamadım.

For i = 1 To 2
On Error GoTo hata
If i = 3 Then

i tanımını 1 den 2 ye kadar tanımlamışsınız ve aşağıda eğer i=3 düşeyara yap değilse yine düşeyara yap işlemi kullanılmış i hiç bir zaman 3 olmayacağı için gereksiz bir işlem olmuş gibi.

Tam yapmak istediğiniz anlamadım fakat aşağıdaki kodları inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim carp, sAdet As Integer
sAdet = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A2:A65000")) + 1
    If Target.Column = 1 Then
        For i = 1 To 2
            On Error GoTo hata
                If Sheets("Data").Cells(5,4) = "Doğru" Then
                    Target.Offset(0, i).Value = _
                    WorksheetFunction.VLookup(Target.Value, _
                    Sheets("Sayfa1").Range("A2:F" & sAdet), i + 1, 0)
             end if
        Next i
    End If
    Exit Sub
hata:
    
End Sub

 

[Baggwell]

Düşeyara formülü için makro kodu lazımdı internetten bunu bulabildim