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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.