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


sayfa dolu ise doluları sırayla önizleme yapar boş ise göstermez

ID : 1741
ISLEM : sayfa dolu ise doluları sırayla önizleme yapar boş ise göstermez
MAKRO KODU : Sub sheets_preview() Dim Sh As Worksheet For Each Sh In Worksheets If Sh.Visible = True Then Sh.PrintPreview End If Next Sh End Sub

sayfa ekle a1 hücresine otomatik olarak sayfanin adinin yazilmasi

ID : 1742
ISLEM : sayfa ekle a1 hücresine otomatik olarak sayfanin adinin yazilmasi
MAKRO KODU : Sub SAYFA_EKLE() Application.ScreenUpdating = False Say = Worksheets.Count For X = Say To Say + 14 Sheets("ANASAYFA").Select Sheets("ANASAYFA").Copy After:=Sheets(Worksheets.Count) ActiveSheet.Shapes("Button 1").Delete ActiveSheet.Name = Format(X, "0000") ActiveSheet.[AA1].Select Selection.NumberFormat = "@" With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With ActiveSheet.[AA1] = ActiveSheet.Name Next Sheets("ANASAYFA").Select Application.ScreenUpdating = True End Sub

sayfa ekleme

ID : 1743
ISLEM : sayfa ekleme
MAKRO KODU : Sub ekle() Dim x As Object Dim neu$, mldg$, title$ Dim ergebnis%, stil% neu = InputBox("Bitte Namen des neuen Arbeitsblattes eingeben:") For Each x In ActiveWorkbook.Sheets If x.Name = neu Then mldg = "Blattname existiert bereits!" stil = vbCritical + vbOKOnly title = "Achtung" ergebnis = MsgBox(mldg, stil, title) Exit Sub End If Next x Sheets.Add ActiveSheet.Name = neu Sheets(neu).Select With ActiveSheet.PageSetup .LeftMargin = Application.CentimetersToPoints(1) .RightMargin = Application.CentimetersToPoints(1) End With End Sub

sayfa ekleme inputboxa ismini yaz

ID : 1744
ISLEM : sayfa ekleme inputboxa ismini yaz
MAKRO KODU : Sub NeuesTabBlatt() Dim NewName As String ActiveSheet.Copy Before:=Sheets(1) 'ganz links anordnen 'ActiveSheet.Copy Before:=ActiveSheet 'links neben Original anordnen NewName = InputBox("Geben Sie einen Tabellenblattnamen ein") On Error Resume Next ActiveSheet.Name = NewName End Sub

sayfa ekleme sıra numarası vererek

ID : 1745
ISLEM : sayfa ekleme sıra numarası vererek
MAKRO KODU : Sub Combine() Dim J As Integer On Error Resume Next Sheets(1).Select Worksheets.Add ' add a sheet in first place Sheets(1).Name = "Combined" ' copy headings Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") ' work through sheets For J = 2 To Sheets.Count ' from sheet 2 to last sheet Sheets(J).Activate ' make the sheet active Range("A1").Select Selection.CurrentRegion.Select ' select all cells in this sheets ' select all lines except title Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select ' copy cells selected in the new sheet on last line Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) Next End Sub

sayfa eklemek için aşağidaki kodu deneyin. 1.sayfayi kopyalar

ID : 1746
ISLEM : sayfa eklemek için aşağidaki kodu deneyin. 1.sayfayi kopyalar
MAKRO KODU : Sayfa eklemek için aşağıdaki kodu deneyin. 1.sayfayı kopyalar. visual basic kodu: Private Sub CommandButton2_Click() Sheets(1).Copy After:=Sheets(Sheets.Count) End Sub

sayfa gizleme hiç göstermeme

ID : 1747
ISLEM : sayfa gizleme hiç göstermeme
MAKRO KODU : ÖZELLİKLER MENÜSÜNDEN SAYFA GİZLEME İŞLEMLERİ VİSİBLE: 0-XLSHEETHİDDE 2-XLSHEETVERY 1-XLSHEETVİSİBLE

sayfa gizleme işlemleri

ID : 1748
ISLEM : sayfa gizleme işlemleri
MAKRO KODU : Private Sub Workbook_BeforeClose(Cancel As Boolean) ' Sayfa1 sayfasını görünür yapıyoruz Sheets("Sayfa1").Visible = True ' Sayfa1 haricinde hepsini gizliyoruz For Each Worksheet In ActiveWorkbook.Worksheets If Worksheet.Name "Sayfa1" Then Worksheet.Visible = False End If Next ' Çalışma Kitabını koruyoruz ActiveWorkbook.Protect Password:="sifre", Structure:=True, Windows:=True End Sub Private Sub Workbook_Open() ' Çalışma Kitabı korumasını kaldırıyoruz ActiveWorkbook.Unprotect Password:="sifre" ActiveWorkbook.Unprotect ' Bütün sayfaları görünür Yapıyoruz For Each Worksheet In ActiveWorkbook.Worksheets Worksheet.Visible = True Next ' Sayfa1 sayfasını gizliyoruz Sheets("Sayfa1").Visible = False End Sub -

sayfa index numarasına göre bulma

ID : 1749
ISLEM : sayfa index numarasına göre bulma
MAKRO KODU : Private Sub CommandButton2_Click() On Error Resume Next Dim Sayfa As Variant Sayfa = InputBox("Sayfa Numarasını Giriniz", "UYARI", "1") Sheets(Sayfa).Select End Sub

sayfa isimleri mesaj kutusunda sıralı

ID : 1750
ISLEM : sayfa isimleri mesaj kutusunda sıralı
MAKRO KODU : Sub sayfa_isim() Dim Count%, Sayfa$ Sayfa = "Toplam Sayfa Adedi: " & Sheets.Count & Chr$(13) For Count = 1 To Sheets.Count Sayfa = Sayfa & Chr$(13) & "Adı" & Count & ": " & _ Sheets(Count).Name Next MsgBox Sayfa, vbOKOnly + vbInformation, "Sayfa İsimleri" End Sub

sayfa isimleri x ve y olan haricinde olanların silinmesi

ID : 1751
ISLEM : sayfa isimleri x ve y olan haricinde olanların silinmesi
MAKRO KODU : ThisWorkbook'a Private Sub Workbook_Open() Application.DisplayAlerts = False Tekrar: For i = 1 To Worksheets.Count If Worksheets(i).Name = "x" Or Worksheets(i).Name = "y" Then GoTo ATLA Worksheets(i).Delete GoTo Tekrar: ATLA: Next i Application.DisplayAlerts = True End Sub

sayfa isimlerini a1 den itibaren listele

ID : 1752
ISLEM : sayfa isimlerini a1 den itibaren listele
MAKRO KODU : Sub SheetNamesDownRows() Dim iSheet As Long For iSheet = 1 To ActiveWorkbook.Worksheets.Count ActiveCell.Offset(iSheet - 1, 0) = "'" & Worksheets(iSheet).Name Next iSheet End Sub

sayfa isimlerini açılışta alfabetik sıralama

ID : 1753
ISLEM : sayfa isimlerini açılışta alfabetik sıralama
MAKRO KODU : Sub Auto_Open() Dim i As Integer Dim j As Integer If Worksheets.Count = 1 Then Exit Sub For i = 1 To Worksheets.Count - 1 For j = i + 1 To Worksheets.Count If Worksheets(j).Name -

sayfa isimlerini alfabetik sıralama

ID : 1754
ISLEM : sayfa isimlerini alfabetik sıralama
MAKRO KODU : Sub TrieFeuilles() Dim I As Integer Dim J As Integer Dim Min As Integer Dim ModeCalcul As Integer ModeCalcul = Application.Calculation Application.Calculation = xlCalculationManual Application.ScreenUpdating = False With ActiveWorkbook.Worksheets For I = 1 To .Count - 1 Min = I For J = I + 1 To .Count If .Item(J).Name I Then .Item(Min).Move before:=Worksheets(I) Next I End With Application.Calculation = ModeCalcul Application.ScreenUpdating = True End Sub -

sayfa isimlerini alfabetik sıralama 2

ID : 1755
ISLEM : sayfa isimlerini alfabetik sıralama 2
MAKRO KODU : Sub TriChaqueFeuilles() Dim X As Variant Dim I As Variant For Each X In ActiveWorkbook.Sheets For I = 2 To ActiveWorkbook.Sheets.Count If Sheets(I - 1).Name > Sheets(I).Name Then Sheets(I - 1).Move After:=Sheets(I) End If Next Next End Sub

sayfa isimlerini büyük harfe çevirme

ID : 1756
ISLEM : sayfa isimlerini büyük harfe çevirme
MAKRO KODU : Sub Maj_Onglets() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Name = UCase(Sheets(i).Name) Next i End Sub

sayfa isimlerini comboboxa aktarma

ID : 1757
ISLEM : sayfa isimlerini comboboxa aktarma
MAKRO KODU : For Each sayfa In Worksheets ad.AddItem sayfa.Name Next sayfa

sayfa isimlerini listelemek 1

ID : 1758
ISLEM : sayfa isimlerini listelemek 1
MAKRO KODU : Sub Menu() Application.CommandBars("Workbook tabs").ShowPopup 930, 30 End Sub

sayfa isimlerini listelemek 2

ID : 1759
ISLEM : sayfa isimlerini listelemek 2
MAKRO KODU : Private Sub sayfa_say() Dim i As Integer For i = 1 To Worksheets.Count Cells(i, 1).Value = Sheets(i).Name Next i End Sub

sayfa isimlerini mesajla saydırma

ID : 1760
ISLEM : sayfa isimlerini mesajla saydırma
MAKRO KODU : Sub Schutzabfrage() Dim wks As Worksheet Dim i As Integer For i = 1 To Worksheets.Count If Sheets(i).ProtectContents = False Then MsgBox (i & ". Blatt" & Chr(13) & Chr(13) & "(" & Sheets(i).Name & ") " & Chr(13) & Chr(13) & " ist ungeschützt!") End If Next i End Sub

sayfa isimlerini olduğu gibi sıralar

ID : 1761
ISLEM : sayfa isimlerini olduğu gibi sıralar
MAKRO KODU : Sub GetSheets() Dim j As Integer Dim NumSheets As Integer NumSheets = Sheets.Count For j = 1 To NumSheets Cells(j, 1) = Sheets(j).Name Next j End Sub

sayfa isimlerini sayfanın a sütununa yazdırma

ID : 1762
ISLEM : sayfa isimlerini sayfanın a sütununa yazdırma
MAKRO KODU : Sub Tabellennamen_auslesen() For i = 1 To Worksheets.Count Sheets("Hier Namen auslesen").Cells(i, 1).Value = Sheets(i).Name Next End Sub

sayfa isimlerini sıralama

ID : 1763
ISLEM : sayfa isimlerini sıralama
MAKRO KODU : Sub Sayfa_sirala() Dim x As Integer Dim y As Boolean Do y = True For x = 1 To Sheets.Count - 1 If Val(Sheets(x).Name) > Val(Sheets(x + 1).Name) Then Sheets(x + 1).Move Before:=Sheets(x) y = False End If Next x Loop Until y = True ActiveSheet.Next.Select End Sub

sayfa isimlerini sırayla mesaj vererek sayar

ID : 1764
ISLEM : sayfa isimlerini sırayla mesaj vererek sayar
MAKRO KODU : Sub FeuilleMSG() Dim Lst() As String Dim I As Integer ReDim Lst(Sheets.Count - 1) For I = 0 To Sheets.Count - 1 Lst(I) = Sheets(I + 1).Name MsgBox Lst(I) Next I End Sub

sayfa isimlerini toptan değiştirme

ID : 1765
ISLEM : sayfa isimlerini toptan değiştirme
MAKRO KODU : Sub Umbenennen() Dim Tabelle As Worksheet i = 1 For Each Tabelle In ActiveWorkbook.Worksheets Tabelle.Name = "NeuerName" & i i = i + 1 Next Tabelle End Sub

sayfa isimlerini z den a ya sıralama

ID : 1766
ISLEM : sayfa isimlerini z den a ya sıralama
MAKRO KODU : Sub SortSheets() Dim i As Integer, j As Integer For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 If UCase$(Sheets(j).Name) -

sayfa ismi a1 in ismi olsun

ID : 1767
ISLEM : sayfa ismi a1 in ismi olsun
MAKRO KODU : Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("a1")) Is Nothing Then Range("a2").Select End If If Target = Range("A1") Then ActiveSheet.Name = Target End Sub

sayfa ismini değiştirme

ID : 1768
ISLEM : sayfa ismini değiştirme
MAKRO KODU : Sub say() For i = 1 To Sheets.Count With Sheets(i) .Select .Name = [A2] End With Next i End Sub

sayfa kaydırma scroll çubuğunu çalıştırma

ID : 1769
ISLEM : sayfa kaydırma scroll çubuğunu çalıştırma
MAKRO KODU : Sub scroll_down() Count = 1 Do Until Count = 200 ActiveWindow.SmallScroll Down:=1 Application.Wait Now + (TimeValue("00:00:03") * 0.2) Count = Count + 1 Loop Cells(1, 1).Select End Sub

sayfa kopyalama

ID : 1770
ISLEM : sayfa kopyalama
MAKRO KODU : Aktif Sayfayı Kopyala ve Yeni Bir Çalışma Kitabı aç ve İsmini "YeniSayfa" Ver ve kopyalananı yapıştır. Sub YeniKitap() Dim Sh As Worksheet Set Sh = ActiveSheet ActiveSheet.Copy ActiveSheet.Name = "YeniSayfa" Sh.Range("A1:Z10").Copy Range("A2") End Sub

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