Makro

[karakoc39]

Sub Makro6()
'
' Makro6 Makro
'

'
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC1,'O:\PROGRAM\[17062011.xlsx]Sayfa1'!C1:C6,5,0)"
Range("C3").Select
Selection.AutoFill Destination:=Range("C3:C33")
Range("C3:C33").Select
Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC1,'O:\PROGRAM\[17062011.xlsx]Sayfa1'!C1:C6,6,0)"
Range("D3").Select
Selection.AutoFill Destination:=Range("D333")
Range("D333").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC1,'O:\PROGRAM\bakiye\[1706.xlsx]Sayfa1'!C1:C2,2,0)"
Range("E3").Select
Selection.AutoFill Destination:=Range("E3:E33")
Range("E3:E33").Select
End Sub


yukarıda yazılı makroda kırmızı ile gösterilen ve her gün o günün tarihi ile kaydedilen excel dosyasının güncellemesi ni yapabilirmiyiz....??
ÖR.
yarın kırmızı ile yazılı olan yerler 18062011.xlsx olacak...

 

[halit3]

Bunu denermisiniz.

Sub Makro6()
[COLOR=red]tarih = Format(Now, "ddmmyyyy")[/COLOR]
[COLOR=red]tarih1 = Format(Now, "ddmm")[/COLOR]
 
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC1,'O:\PROGRAM\[[COLOR=red]" & tarih & "[/COLOR].xlsx]Sayfa1'!C1:C6,5,0)"
Range("C3").Select
Selection.AutoFill Destination:=Range("C3:C33")
Range("C3:C33").Select
Range("D3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC1,'O:\PROGRAM\[[COLOR=red]" & tarih & "[/COLOR].xlsx]Sayfa1'!C1:C6,6,0)"
Range("D3").Select
Selection.AutoFill Destination:=Range("D333")
Range("D333").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC1,'O:\PROGRAM\bakiye\[[COLOR=red]" & tarih1 & "[/COLOR].xlsx]Sayfa1'!C1:C2,2,0)"
Range("E3").Select
Selection.AutoFill Destination:=Range("E3:E33")
Range("E3:E33").Select
End Sub