Veri Aktar

[ikuyucak]

Ekteki Ornekte Resime Her Bastigimda Sayfa 2 De D2 Deki Yazilan
Otomatik Olarak Sayfa 1 Deki Her Sutun Eklendiginde
Eklenen Sutunun Basina Yazilmasini Istiyorum .. Arkadaslardan Formul Yardimlarini Bekliyorum.. Saygilar

 

[Orion1]

Dosyanız ekte.

Sub ekle()

Dim i As Long, sonsat As Long
Set s3 = Sheets("2")
Set s1 = Sheets("1")
sonsat = s3.Cells(65536, "C").End(xlUp).Row
If sonsat < 7 Then GoTo son
s1.Columns("C:C").Insert Shift:=xlToRight
[B][COLOR="Red"]s1.Range("C1").Value = s3.Range("D2").Value[/COLOR][/B]
For i = 7 To sonsat
basla:
Set k = s1.Range("A2:A65536").Find(s3.Cells(i, "C").Value, LookIn:=xlValues, lookat:=xlWhole)
If k Is Nothing Then
    s1.Cells(s1.Cells(65536, "A").End(xlUp).Row + 1, "A").Value = s3.Cells(i, "C").Value
    GoTo basla
    Else
    s1.Cells(k.Row, "C").Value = s3.Cells(i, "D").Value
End If
Next
MsgBox "TAMAM.", vbOKOnly + vbInformation
son:
Set s3 = Nothing
Set s1 = Nothing
End Sub

 

[ikuyucak]

tesekkurler

tesekkurler sayin evren...saygilarimla

 

[Orion1]

tesekkurler sayin evren...saygilarimla

Rica ederim.
iyi çalışmalar.