- Katılım
- 3 Haziran 2020
- Mesajlar
- 34
- Excel Vers. ve Dili
- Türkçe 2016
Herkese Kolay Gelsin
Benim sorunum Haftanın beş günü sabah saat 9.30 ve akşam 17:00 de otamatik olarak Makro çalışsın
sabah 9:30 da bu kodu çalıştırsın
Sub kursil()
Range("O3:O4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("M4").Select
End Sub
akşam 17:00 de bu kodu çalıştırsın
Sub kurgir()
Range("L3").Select
Selection.Copy
Range("O3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L4").Select
Application.CutCopyMode = False
Selection.Copy
Range("O4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M4").Select
End Sub
şimdiden ilginiz için teşekür ediyorum
İyi çalışmalar
Benim sorunum Haftanın beş günü sabah saat 9.30 ve akşam 17:00 de otamatik olarak Makro çalışsın
sabah 9:30 da bu kodu çalıştırsın
Sub kursil()
Range("O3:O4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("M4").Select
End Sub
akşam 17:00 de bu kodu çalıştırsın
Sub kurgir()
Range("L3").Select
Selection.Copy
Range("O3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L4").Select
Application.CutCopyMode = False
Selection.Copy
Range("O4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M4").Select
End Sub
şimdiden ilginiz için teşekür ediyorum
İyi çalışmalar