- Katılım
- 6 Aralık 2006
- Mesajlar
- 54
- Excel Vers. ve Dili
- Ofix XP ve 2003
Sub tebarka()
'
' tebarka Makro
' Makro Adalet tarafından 28.09.2006 tarihinde kaydedildi.
'
'
Sheets("ARKA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("FORM").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents
On Error Resume Next
ActiveWorkbook.SaveAs Filename:= _
"D:\Karar\Kolay Karar.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
[e1] = [e1] + 1
[e2] = [e2] + 1
End Sub
Arkadaşlar bu kodun devamına yada herhangi bir yerine bir kod lazım:
Farklı Kaydet yaparak "N23" satırının içeriğindeki yazı ile farklı kaydet yapılması gerekiyor...
Yardımlarınızı bekliyorum...
Şimdiden Teşekkürler...
'
' tebarka Makro
' Makro Adalet tarafından 28.09.2006 tarihinde kaydedildi.
'
'
Sheets("ARKA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("FORM").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents
On Error Resume Next
ActiveWorkbook.SaveAs Filename:= _
"D:\Karar\Kolay Karar.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
[e1] = [e1] + 1
[e2] = [e2] + 1
End Sub
Arkadaşlar bu kodun devamına yada herhangi bir yerine bir kod lazım:
Farklı Kaydet yaparak "N23" satırının içeriğindeki yazı ile farklı kaydet yapılması gerekiyor...
Yardımlarınızı bekliyorum...
Şimdiden Teşekkürler...