Sn.yeğen
TAMAM DA ÇALIŞMASI NASIL? yegen
sanırım sizin probleminizi çözecek formülü buldum:
Sub Formulas()
Application.DisplayAlerts = False
For i = 1 To 2000
Cells(i + 1, 7).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$B$2"
Cells(i + 1, 2).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$I$2"
Cells(i + 1, 6).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$C$2"
Cells(i + 1, 5).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$C$1"
Cells(i + 1, 4).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$D$2"
Cells(i + 1, 3).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$A$2"
Cells(i + 1, 2).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$I$2"
Cells(i + 1, 1).Formula = "=" & "'G:\MÜŞTERİ\[" & i & ".xlsx]Sayfa1'!$D$1"
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 1, 1), _
Address:="G:\MÜŞTERİ\" & i & ".xlsx"
Next
Application.DisplayAlerts = True
MsgBox "Bittim..."
End Sub
kendinize iyi bakınız patron.yaşlanmışsınız galiba....
saygılarımla..
TAMAM DA ÇALIŞMASI NASIL? yegen