veri transferi

[madigan]

ek'te soruma macro cozumler sunabilir misiniz? tesekkur ederim.

 

[zafer]

Merhaba


Formüllü çözüm.

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, Range("C12:C37")) Is Nothing Then Exit Sub
Set k = Sheets("data").Range("A2:A65536").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    For i = 1 To 4
        Target.Offset(0, i).Value = k.Offset(0, i).Value
    Next i
End If
Set k = Nothing
End Sub

 

[madigan]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, Range("C12:C37")) Is Nothing Then Exit Sub
Set k = Sheets("data").Range("A2:A65536").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    For i = 1 To 4
        Target.Offset(0, i).Value = k.Offset(0, i).Value
    Next i
End If
Set k = Nothing
End Sub

cok tesekkur ederim hizli cevabiniz icin, gercekten supersiniz. acaba bu macro da verileri istedigim basliklar altina gelmesini saglayabilirmisiniz? macro calisiyor ama degerler baska basliklar altinda cikiyor?

 

[madigan]

tamam hallettim "data" sayfasında kolonlarin yerini degistirdim oldu . Cok tesekkur ederim tekrar

 

[Orion1]

tamam hallettim "data" sayfasında kolonlarin yerini degistirdim oldu . Cok tesekkur ederim tekrar

Rica ederim.
iy çalışmalar.