Makro Kod Listesi
Excel de kullanılan Makro Kodlarının Listesi


sayfa kopyalama

ID : 1771
ISLEM : sayfa kopyalama
MAKRO KODU : Sub YENİÜYE() On Error Resume Next Application.ScreenUpdating = False Dim sadi, ssayi sadi = [C2] ssayi = Worksheets.Count For i = 1 To ssayi If Sheets(i).Name = sadi Then Exit Sub Next i Worksheets.Add After:=Worksheets(ssayi) Worksheets(ssayi + 1).Name = sadi Sheets("KOPYA").Select Cells.Select Selection.Copy Sheets(ssayi + 1).Select Cells.Select ActiveSheet.Paste Range("H2").Select Range("H2").Value = sadi Sheets("KOPYA").Select Application.CutCopyMode = False Range("H2").Select Sheets(i).Select Application.ScreenUpdating = True End Sub

sayfa kopyalama (indexi 2 olan sayfanın c6 adıyla kopyalar butonları silerek)

ID : 1772
ISLEM : sayfa kopyalama (indexi 2 olan sayfanın c6 adıyla kopyalar butonları silerek)
MAKRO KODU : Sub Düğme8_Tıklat() Dim NewName As String ActiveSheet.Copy Before:=Sheets(2) 'ActiveSheet.Copy Before:=ActiveSheet NewName = Sheets(2).Range("c6").Value On Error Resume Next ActiveSheet.Name = NewName ActiveSheet.DrawingObjects.Delete End Sub

sayfa kopyalama (macro ile)

ID : 1773
ISLEM : sayfa kopyalama (macro ile)
MAKRO KODU : Sub Kopyala() Sheets("Sayfa1").Visible = True Sheets("Sayfa1").Copy After:=Worksheets(Worksheets.Count) 10 NewPageName = InputBox("Kopyalamak Üzere Olduğunuz Sayfanın Adını Belirleyiniz...!!!") For a = 1 To Sheets.Count If UCase(Sheets(a).Name) = UCase(NewPageName) Then MsgBox "Seçtiğiniz sayfa adı mevcuttur yeniden deneyin." GoTo 10 End If Next ActiveWindow.ActiveSheet.Name = NewPageName End Sub

sayfa kopyasını siz belirleyin

ID : 1774
ISLEM : sayfa kopyasını siz belirleyin
MAKRO KODU : Private Sub impression() Dim NumLigne As Long Sheets("Base").Select NumLigne = Range("H2").Value + 16 Dim ZoneImpression As String ZoneImpression = "$B$7:$K$" & NumLigne ActiveSheet.PageSetup.PrintArea = ZoneImpression Dim NbCopy As Integer On Error GoTo fin NbCopy = InputBox("Nombre de fiches à imprimer (Maxi 5)", "Nombre", 1, 1000, 1000) If NbCopy > 5 Then NbCopy = 5 Application.ScreenUpdating = False ActiveWindow.SelectedSheets.PrintOut Copies:=NbCopy, Collate:=True fin: End Sub

sayfa koruma koyduysanız sıra ile koruma kaldırma menüsü

ID : 1775
ISLEM : sayfa koruma koyduysanız sıra ile koruma kaldırma menüsü
MAKRO KODU : Sub UnProtectFeuil() Dim sht As Worksheet For Each sht In ActiveWorkbook.Worksheets sht.Unprotect Next sht End Sub

sayfa koruma menülerini çağırır

ID : 1776
ISLEM : sayfa koruma menülerini çağırır
MAKRO KODU : SAYFA KORUMA MENÜSÜ ÇAĞIR Sub BlattSchutzEin() Application.Dialogs(xlDialogProtectDocument).Show End Sub SAYFA KORUMASINI KALDIR MENÜSÜ Sub BlattSchutzAus() ActiveSheet.Unprotect End Sub

sayfa koruma menülerini çağirir

ID : 1777
ISLEM : sayfa koruma menülerini çağirir
MAKRO KODU : SAYFA KORUMA MENÜSÜ ÇAĞIR Sub BlattSchutzEin() Application.Dialogs(xlDialogProtectDocument).Show End Sub SAYFA KORUMASINI KALDIR MENÜSÜ Sub BlattSchutzAus() ActiveSheet.Unprotect End Sub

sayfa koruma şifresini kaldırma

ID : 1778
ISLEM : sayfa koruma şifresini kaldırma
MAKRO KODU : Sub SifreAc() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 For i4 = 65 To 66 For i5 = 65 To 66 For i6 = 65 To 66 For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _ & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) _ & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) _ & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub

sayfa koruma, otomatik filtre açık

ID : 1779
ISLEM : sayfa koruma, otomatik filtre açık
MAKRO KODU : Sub FilternAuchBeiBlattschutz() ActiveSheet.Protect userinterfaceonly:=True ActiveSheet.EnableAutoFilter = True End Sub

sayfa korumalarını kaldırır (şifresiz olanları)

ID : 1780
ISLEM : sayfa korumalarını kaldırır (şifresiz olanları)
MAKRO KODU : Sub sayfakorumakaldir() Dim Wb As Workbook, Sh As Worksheet For Each Wb In Workbooks For Each Sh In Wb.Worksheets Sh.Unprotect Next Sh Next Wb End Sub

sayfa korumalarını kaldırma

ID : 1781
ISLEM : sayfa korumalarını kaldırma
MAKRO KODU : Public Sub AllInternalPasswords() Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup." Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "now be free of all password protection, so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _ DBLSPACE & "Also, remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _ "may be an offense. If in doubt, don't." Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets, or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _ "Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords, the " & _ "passwords, and your computer's specification." & DBLSPACE & _ "Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _ "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACK Dim w1 As Worksheet, w2 As Worksheet Dim i As Integer, j As Integer, k As Integer, l As Integer Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer Dim PWord1 As String Dim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbook WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If Not ShTag And Not WinTag Then MsgBox MSGNOPWORDS1, vbInformation, HEADER Exit Sub End If MsgBox MSGTAKETIME, vbInformation, HEADER If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER Else On Error Resume Next Do For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If .ProtectStructure = False And _ .ProtectWindows = False Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1), vbInformation, HEADER Exit Do End If End With Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If If WinTag And Not ShTag Then MsgBox MSGONLYONE, vbInformation, HEADER Exit Sub End If On Error Resume Next For Each w1 In Worksheets w1.Unprotect PWord1 Next w1 On Error GoTo 0 ShTag = False For Each w1 In Worksheets ShTag = ShTag Or w1.ProtectContents Next w1 If ShTag Then For Each w1 In Worksheets With w1 If .ProtectContents Then On Error Resume Next Do For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If Not .ProtectContents Then PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) MsgBox Application.Substitute(MSGPWORDFOUND2, _ "$$", PWord1), vbInformation, HEADER For Each w2 In Worksheets w2.Unprotect PWord1 Next w2 Exit Do End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Loop Until True On Error GoTo 0 End If End With Next w1 End If MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub

sayfa koruması kırma

ID : 1782
ISLEM : sayfa koruması kırma
MAKRO KODU : Sub SifreAc() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For m = 65 To 66 For i1 = 65 To 66 For i2 = 65 To 66 For i3 = 65 To 66 For i4 = 65 To 66 For i5 = 65 To 66 For i6 = 65 To 66 For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _ & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) _ & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) _ & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next Next Next Next Next Next Next Next Next Next Next Next End Sub

sayfa koruması nasıl kaldırılır

ID : 1783
ISLEM : sayfa koruması nasıl kaldırılır
MAKRO KODU : Önce Sayfa koruması olan Excel dosyası açılır, sonra makrolar bölümünden VBA düzenleyicisinin içine girilir,bir modül oluşturulur, oluşturulan modülün içine aşağıdaki kod yazılır ve çalıştırılır,... ' ****************************** KOD *************************** Sub pcwBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 sifre = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveSheet.Unprotect sifre If ActiveSheet.ProtectContents = False Then MsgBox "Bitti." & vbCr & "Sifre:" & vbCr & sifre Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

sayfa korumasını kaldırma

ID : 1784
ISLEM : sayfa korumasını kaldırma
MAKRO KODU : Sub DesactiverProtection() ActiveSheet.Unprotect End Sub

sayfa korumasını kırma

ID : 1785
ISLEM : sayfa korumasını kırma
MAKRO KODU : Sub koruma_kir() On Error Resume Next For i = 65 To 66 For j = 65 To 66 For k = 65 To 66 For l = 65 To 66 For M = 65 To 66 For N = 65 To 66 For o = 65 To 66 For p = 65 To 66 For q = 65 To 66 For r = 65 To 66 For s = 65 To 66 For t = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(M) & _ Chr(N) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t) If ActiveSheet.ProtectContents = False Then MsgBox "Ein mögliches Passwort ist " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & _ Chr(M) & Chr(N) & Chr(o) & Chr(p) & Chr(q) & Chr(r) & Chr(s) & Chr(t) Exit Sub End If Next t Next s Next r Next q Next p Next o Next N Next M Next l Next k Next j Next i End Sub

sayfa korumasını kırmak için

ID : 1786
ISLEM : sayfa korumasını kırmak için
MAKRO KODU : Sub pcwBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 sifre = Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveSheet.Unprotect sifre If ActiveSheet.ProtectContents = False Then MsgBox "Bitti." & vbCr & "Sifre:" & vbCr & sifre Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

sayfa korumasını kırmak için (unuttuysanız kullanın)

ID : 1787
ISLEM : sayfa korumasını kırmak için (unuttuysanız kullanın)
MAKRO KODU : Sub breakit()   Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer     On Error Resume Next     For i = 65 To 66      For j = 65 To 66       For k = 65 To 66        For l = 65 To 66         For m = 65 To 66         For i1 = 65 To 66         For i2 = 65 To 66         For i3 = 65 To 66         For i4 = 65 To 66         For i5 = 65 To 66         For i6 = 65 To 66          For n = 32 To 126     ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)     If ActiveSheet.ProtectContents = False Then         MsgBox "One useble password is " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)         Exit Sub     End If     Next     Next     Next     Next     Next     Next     Next     Next     Next     Next     Next     Next End Sub

sayfa link güncelleştirme

ID : 1788
ISLEM : sayfa link güncelleştirme
MAKRO KODU : Sub upddate_link() ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources End Sub

sayfa numarası ekleme makrosu

ID : 1789
ISLEM : sayfa numarası ekleme makrosu
MAKRO KODU : Kopf_und_Fusszeilen() ' &S = Seiten-Nr. ' &A = Seitenanzahl ' &N = Mappen-Name ' &B = Register-Name ' &D = Datum ' &U = Uhrzeit Sub vb_Pfad_in_Fusszeile() Application.ScreenUpdating = False With ActiveSheet.PageSetup .RightFooter = ActiveWorkbook.Path & "\&N [&B]" End With Application.ScreenUpdating = True End Sub

sayfa protect unprotect

ID : 1790
ISLEM : sayfa protect unprotect
MAKRO KODU : Public Sub ProtectGroupedSheets() Const csPASSWD As String = "drowssap" Dim mySheets As Sheets Dim actSheet As Worksheet Dim wkSht As Worksheet Set actSheet = ActiveSheet Set mySheets = ActiveWindow.SelectedSheets actSheet.Select For Each wkSht In mySheets wkSht.Protect Password:=csPASSWD Next wkSht actSheet.Select mySheets.Select False End Sub

sayfa saydırma

ID : 1791
ISLEM : sayfa saydırma
MAKRO KODU : Public Sub SortWorksheets1() Dim Cnt%, N%, M%, i%, ZahlM%, ZahlN% Dim WS As Worksheet Set WS = ActiveSheet Cnt = ActiveWorkbook.Worksheets.Count For M = 1 To Cnt For N = M To Cnt On Error Resume Next For i = 1 To Len(Worksheets(N).Name) If IsNumeric(Right(Worksheets(N).Name, i)) = False Then i = i - 1 If i = 0 Then GoTo Text ZahlN = Right(Worksheets(N).Name, i) Exit For End If Next i For i = 1 To Len(Worksheets(M).Name) If IsNumeric(Right(Worksheets(M).Name, i)) = False Then i = i - 1 If i = 0 Then GoTo Text ZahlM = Right(Worksheets(M).Name, i) Exit For End If Next i If CInt(ZahlN) -

sayfa sayısını bulan kod 1

ID : 1792
ISLEM : sayfa sayısını bulan kod 1
MAKRO KODU : Sheets("Sheet1").Range("A1")=ListBox2.ListCount

sayfa sayısını bulan kod 2

ID : 1793
ISLEM : sayfa sayısını bulan kod 2
MAKRO KODU : Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To Worksheets.Count ListBox1.AddItem Worksheets(i).Name Next i End Sub

sayfa sekmelerine koruma atamak

ID : 1794
ISLEM : sayfa sekmelerine koruma atamak
MAKRO KODU : Bu işlemi aşağıdaki kodlarla; Sayfa2 sekmesini tıkladığınızda şifre uyarı penceresi açtırarak şifreyi bilirse sayfa ismini değiştirebilir (sayfa2 ye geçebilir) Şifreyi bilemezse sayfa2 ye geçilemez ve sayfa ismide değiştirilemez. Private Sub Worksheet_Activate() 'ActiveWindow.DisplayWorkbookTabs = False 'sayfa tablarını gizler Application.EnableCancelKey = xlErrorHandler 'esc tuşu devre dışı Application.DisplayAlerts = False 'hata mesajlarını gözardı et Dim sifre As String sifre = InputBox("Lütfen Şifreyi Giriniz," & Chr(13) & Chr(13) & "Şifre:123", "pir") If sifre "123" Then 'şifre yanlışsa MsgBox "Hatalı şifre" Worksheets("Sayfa1").Select Exit Sub Else MsgBox ("Şifreyi Doğru Girdiniz") ActiveWindow.DisplayWorkbookTabs = True Worksheets("Sayfa2").Select Application.DisplayAlerts = True End If End Sub -

sayfa sekmelerini hücrede göster

ID : 1795
ISLEM : sayfa sekmelerini hücrede göster
MAKRO KODU : Private Sub Worksheet_Activate() [a1] = ActiveSheet.Name End Sub

sayfa sekmelerinin gizlenmesi

ID : 1796
ISLEM : sayfa sekmelerinin gizlenmesi
MAKRO KODU : Sub MasqueOnglet() With ActiveWindow .DisplayWorkbookTabs = Not .DisplayWorkbookTabs End With End Sub

sayfa sıralama

ID : 1797
ISLEM : sayfa sıralama
MAKRO KODU : Public Sub SortWorksheets() Dim Cnt As Integer Dim N As Integer Dim M As Integer On Error GoTo EndOfMacro Application.ScreenUpdating = False Cnt = ActiveWorkbook.Worksheets.Count For M = 1 To Cnt For N = M To Cnt If UCase(Worksheets(N).Name) -

sayfa sıralama

ID : 1798
ISLEM : sayfa sıralama
MAKRO KODU : Sub sheet_sorting () Dim i As Integer Dim j As Integer For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next j Next i End Sub

sayfa sıralama

ID : 1799
ISLEM : sayfa sıralama
MAKRO KODU : Public Sub SortWorksheets() Dim Cnt As Integer Dim N As Integer Dim M As Integer On Error GoTo EndOfMacro Application.ScreenUpdating = False Cnt = ActiveWorkbook.Worksheets.Count For M = 1 To Cnt For N = M To Cnt If UCase(Worksheets(N).Name) -

sayfa silerken mesaj vermesin

ID : 1800
ISLEM : sayfa silerken mesaj vermesin
MAKRO KODU : Sub SayfaSil() Application.DisplayAlerts = False ActiveSheet.Delete End Sub Yanlız uyarıyı tekrar eski haline getirmelisiniz. Sub SayfaSil() Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub

* Görseller ve İçerik tekif hakkına sahip olabilir