Kod:
Sub b()
a = Sheets("Sayfa1").Range("a1").Value
b = Sheets(" & a & ").Range("a1").Value
If a = Sayfa1 Then
Range("b1") = a
ElseIf a = Sayfa2 Then
Range("b1") = b
End If
End Sub
A1 hücresine Sayfa2 yazdığımda Sayfa2 deki a1 değerini Sayfa1 b1 hücresine yazmasını istiyorum.
b tanımlamasında hata veriyor.