Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Not Intersect(Target, [Sacstok!ac4:ac65536]) Is Nothing Then
Set Aralik = Range("f2:f" & [d65536].End(2).Row)
Set Bul = Aralik.Find(Target.Row, lookat:=xlWhole, LookIn:=xlValues)
If Not Bul Is Nothing Then
Adres = Bul.Address
Do
Target.Copy Cells(Bul.Row, Bul.Column - 2)
Set Bul = Aralik.FindNext(Bul)
Loop While Not Bul Is Nothing And Bul.Address <> Adres
End If
ElseIf Not Intersect(Target, [f2:f65536]) Is Nothing Then
Range("ac" & Target).Copy Target.Offset(0, -2)
End If
son:
End Sub
yazdığım kod satırında nasıl bir hata var acaba?
sacstok isimli sayfada ac4 hücresinde yazılı olan veriyi siparisbilgileri sayfasında d2 hücresine biçimi ile aktarmaya çalışıyorum.
not: ac4'ten başlayıp ac65536 ve d2'den başlayıp d65536' ya kadar olacak hücrelere
