excell dosyasına giriş butonu hazırlama...

[acoguz]

VBA ile ( eğer a1 hücresiyle j5 hücresi eşitse sayfa 3 e git değilse dosyayı kapat) formülü arıyorum...Bilen varsa yazabilirmi..

 

[tugkan]

VBA ile ( eğer a1 hücresiyle j5 hücresi eşitse sayfa 3 e git değilse dosyayı kapat) formülü arıyorum...Bilen varsa yazabilirmi..

aşağıdaki kodu dener misiniz?

Sub CheckAndNavigateOrClose()
    Dim ws As Worksheet
    Dim a1Value As Variant
    Dim j5Value As Variant

    ' Aktif çalışma sayfasını tanımla
    Set ws = ThisWorkbook.ActiveSheet

    ' A1 ve J5 hücrelerindeki değerleri al
    a1Value = ws.Range("A1").Value
    j5Value = ws.Range("J5").Value

    ' Değerleri karşılaştır
    If a1Value = j5Value Then
        ' Değerler eşitse Sayfa3'e git
        ThisWorkbook.Sheets("Sayfa3").Activate
    Else
        ' Değerler eşit değilse dosyayı kapat
        ThisWorkbook.Close SaveChanges:=False
    End If
End Sub

 

[Muzaffer Ali]

Alternatif

Sub Test()
    If Range("A5") = Range("J5") Then
        Worksheets("Sayfa3").Activate
    Else
        ThisWorkbook.Close
    End If
End Sub