[vb:1:577dcc4fcd]Sub deneme()
Sheets(5).Select
Range("a1").Select
For a = 1 To 4
For Each ara In Sheets(a).Cells
If ara.Text = "#YOK" Then
ActiveCell = Sheets(a).Name & "-" & ara.Row
ActiveCell.Offset(1, 0).Activate
End If
Next
Next
End Sub[/vb:1:577dcc4fcd]
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.