Butona onay kodu vermek

recepkull

recepkull

Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
Arkadaşlar makroyla oluşturduğumuz butona tıkladığımızda komutu yerine getirmeden önce "eminmisiniz" gibi bir uyar onay çıkmasını istiyorum bunu nasıl yapabilirim
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Buyurun.:cool:
Kod: 
Sub mesajkutusu59()
If MsgBox("Eminmisiniz?", vbYesNo) = vbNo Then
    MsgBox "Hayır butonuna basıldı"
Else
    MsgBox "Evet butonuna basıldı."
End If
End Sub
 
recepkull

recepkull

Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
Verdiğiniz kodu mevcut koduma nasıl entegre edecem hocam

Kod: 
Sub Kaydet()
'
' Kaydet Makro
'

'
If Range("T3") = 1 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("1").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
ElseIf Range("T3") = 2 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("2").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 3 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("3").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 4 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("4").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 5 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("5").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 6 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("6").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 7 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("7").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 8 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("8").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 9 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("9").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 10 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("10").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 11 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("11").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 12 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("12").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 13 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("13").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 14 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("14").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 15 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("15").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 16 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("16").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 17 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("17").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 18 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("18").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 19 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("19").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 20 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("20").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 21 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("21").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 22 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("22").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 23 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("23").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 24 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("24").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 25 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("25").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 26 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("26").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 27 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("27").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 28 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("28").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 29 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("29").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 30 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("30").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 31 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("31").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
Else
    MsgBox "Yanlış tarih girildi."
End If
End Sub
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Buyurun.:cool:

Kod: 
Sub Kaydet()
'
' Kaydet Makro
'

If MsgBox("Eminmisiniz?", vbYesNo) = vbNo Then
    MsgBox "Hayır butonuna basıldı"
Else
    MsgBox "Evet butonuna basıldı."
End If
If Range("T3") = 1 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("1").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
ElseIf Range("T3") = 2 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("2").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 3 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("3").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 4 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("4").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 5 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("5").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 6 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("6").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 7 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("7").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 8 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("8").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 9 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("9").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 10 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("10").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 11 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("11").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 12 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("12").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 13 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("13").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 14 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("14").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 15 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("15").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 16 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("16").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 17 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("17").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 18 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("18").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 19 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("19").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 20 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("20").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 21 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("21").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 22 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("22").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 23 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("23").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 24 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("24").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 25 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("25").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 26 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("26").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 27 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("27").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 28 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("28").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 29 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("29").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 30 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("30").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
    
    ElseIf Range("T3") = 31 Then
    Range("N9:V26").Select
    Selection.Copy
    Sheets("31").Select
    Range("N9:V26").Select
    ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
    Range("C9:E9").Select
    Sheets("Sonuç").Select
    Application.CutCopyMode = False
    Range("K13:M13").Select
    ActiveWindow.SmallScroll Down:=18
    Range("O29:V36").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=12
    Range("B39:V41").Select
    Selection.ClearContents
    Range("N38:V38").Select
    Selection.ClearContents
    Range("B44:V46").Select
    Selection.ClearContents
    Range("N43:V43").Select
    Selection.ClearContents
    Range("B49:V53").Select
    Selection.ClearContents
    Range("D48:V48").Select
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-45
    Range("C9:E9").Select
Else
    MsgBox "Yanlış tarih girildi."
End If
End Sub
 
Y

yanginci34

Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,654
Excel Vers. ve Dili
excel2016
Altın Üyelik Bitiş Tarihi
12-10-2026
Denermisiniz.

Sub kaydet2()
If MsgBox("Eminmisiniz?", vbYesNo) = vbNo Then
Exit Sub
Else
If Range("T3") = 1 Then
Range("N9:V26").Select
Selection.Copy
Sheets("1").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 2 Then
Range("N9:V26").Select
Selection.Copy
Sheets("2").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 3 Then
Range("N9:V26").Select
Selection.Copy
Sheets("3").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 4 Then
Range("N9:V26").Select
Selection.Copy
Sheets("4").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 5 Then
Range("N9:V26").Select
Selection.Copy
Sheets("5").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 6 Then
Range("N9:V26").Select
Selection.Copy
Sheets("6").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 7 Then
Range("N9:V26").Select
Selection.Copy
Sheets("7").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 8 Then
Range("N9:V26").Select
Selection.Copy
Sheets("8").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 9 Then
Range("N9:V26").Select
Selection.Copy
Sheets("9").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 10 Then
Range("N9:V26").Select
Selection.Copy
Sheets("10").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 11 Then
Range("N9:V26").Select
Selection.Copy
Sheets("11").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 12 Then
Range("N9:V26").Select
Selection.Copy
Sheets("12").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 13 Then
Range("N9:V26").Select
Selection.Copy
Sheets("13").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 14 Then
Range("N9:V26").Select
Selection.Copy
Sheets("14").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 15 Then
Range("N9:V26").Select
Selection.Copy
Sheets("15").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 16 Then
Range("N9:V26").Select
Selection.Copy
Sheets("16").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 17 Then
Range("N9:V26").Select
Selection.Copy
Sheets("17").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 18 Then
Range("N9:V26").Select
Selection.Copy
Sheets("18").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 19 Then
Range("N9:V26").Select
Selection.Copy
Sheets("19").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 20 Then
Range("N9:V26").Select
Selection.Copy
Sheets("20").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 21 Then
Range("N9:V26").Select
Selection.Copy
Sheets("21").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 22 Then
Range("N9:V26").Select
Selection.Copy
Sheets("22").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 23 Then
Range("N9:V26").Select
Selection.Copy
Sheets("23").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 24 Then
Range("N9:V26").Select
Selection.Copy
Sheets("24").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 25 Then
Range("N9:V26").Select
Selection.Copy
Sheets("25").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 26 Then
Range("N9:V26").Select
Selection.Copy
Sheets("26").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 27 Then
Range("N9:V26").Select
Selection.Copy
Sheets("27").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 28 Then
Range("N9:V26").Select
Selection.Copy
Sheets("28").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 29 Then
Range("N9:V26").Select
Selection.Copy
Sheets("29").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 30 Then
Range("N9:V26").Select
Selection.Copy
Sheets("30").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select

ElseIf Range("T3") = 31 Then
Range("N9:V26").Select
Selection.Copy
Sheets("31").Select
Range("N9:V26").Select
ActiveSheet.PasteSpecial xlPasteValuesAndNumberFormats
Range("C9:E9").Select
Sheets("Sonuç").Select
Application.CutCopyMode = False
Range("K13:M13").Select
ActiveWindow.SmallScroll Down:=18
Range("O29:V36").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("B39:V41").Select
Selection.ClearContents
Range("N38:V38").Select
Selection.ClearContents
Range("B44:V46").Select
Selection.ClearContents
Range("N43:V43").Select
Selection.ClearContents
Range("B49:V53").Select
Selection.ClearContents
Range("D48:V48").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-45
Range("C9:E9").Select
Else
MsgBox "Yanlış tarih girildi."
End If
End Sub
Genişletmek için tıkla ...
 
Y

yanginci34

Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,654
Excel Vers. ve Dili
excel2016
Altın Üyelik Bitiş Tarihi
12-10-2026
Pardon Oryon Hocam cevabınızı görmemiştim.
 
recepkull

recepkull

Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
Hocam "eminmisiniz" uyarısında hayıra bastığım halde komutu yerine getiriyor. Hayıra bastığımda komutu yerine getirmemesini yapabilir misiniz ?
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
recepkull' Alıntı:
Hocam "eminmisiniz" uyarısında hayıra bastığım halde komutu yerine getiriyor. Hayıra bastığımda komutu yerine getirmemesini yapabilir misiniz ?
Genişletmek için tıkla ...
Buyurun.:cool:
Kod: 
Sub Kaydet()
'
' Kaydet Makro
'

[B][COLOR="Red"]If MsgBox("Eminmisiniz?", vbYesNo) = vbNo Then Exit Sub[/COLOR][/B]
If Range("T3") = 1 Then
    Range("N9:V26").Select
    Selection.Copy
 
recepkull

recepkull

Katılım
14 Kasım 2017
Mesajlar
618
Excel Vers. ve Dili
2010 Türkçe
Altın Üyelik Bitiş Tarihi
07-01-2024
Orion1' Alıntı:
Buyurun.:cool:
Kod: 
Sub Kaydet()
'
' Kaydet Makro
'

[B][COLOR="Red"]If MsgBox("Eminmisiniz?", vbYesNo) = vbNo Then Exit Sub[/COLOR][/B]
If Range("T3") = 1 Then
    Range("N9:V26").Select
    Selection.Copy
Genişletmek için tıkla ...
Teşekkür ederim bu çok iyi oldu :mutlu:
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst