Macro'da Muhtelif İşlemler

Bağlantıyı al
Facebook
X
Pinterest
E-posta
Diğer Uygulamalar

Sub MuhtelifIslemler()

UserForm1.Show 'UserForm1 formunu göster.

Sheets("Sayfa1").Range("A1:D7").Clear 'Belirtilen sayfadaki belirtilen aralıktaki hücreleri temizle.

Columns("A:B").Clear 'A:B kolonlarını temizle.

Rows("3:3").ClearFormats '3 numaralı satırın formatını temizle.

Columns("A:B").Delete 'A:B kolonlarını sil.

Range("A1:B2").Delete xlToLeft 'A1:B2 hücrelerini sola doğru sil.

Range("A1:B2").Delete xlUp 'A1:B2 hücrelerini yukarıya doğru sil.

Range("C1").Formula = "=A1*B1" 'C1 hücresine formül ata.

ActiveCell.Formula = "=A1*B1" 'Aktif hücrede formül ata.

Range("B2").AddComment ("......") 'B2 hücresine Açıklama ekle.

Range("A2:D7").BorderAround (1) 'A2:D7 aralığının kenarlarını çiz.

Range("D:D").Replace what:="ü", replacement:="u" 'D kolonundaki ü'leri u olarak değiştir.

Application.Sheets("Sayfa1").PrintOut 'Sayfa1 isimli sayfayı yazdır.

Application.Sheets("Sayfa1").PrintPreview 'Sayfa1 isimli sayı ön izleme yap.

ActiveWindow.WindowState = xlMinimized 'Excel penceresini minimum boyuta getir.

ActiveWindow.WindowState = xlNormal 'Excel penceresini en son ayarlanan boyuta getir.

ActiveWindow.WindowState = xlMaximized 'Excel penceresini maksimum boyuta getir.

UserForm1.Hide 'Formu gizle.

Unload UserForm1 'Formu hafızadan at.

Application.Quit 'Excel programından çık.

ThisWorkbook.Save 'Dosyayı kaydet

ThisWorkbook.SaveAs "Sinan.xlsm" 'Dosyayı farklı kaydet

ThisWorkbook.Close 'Dosyayı kapat

End Sub

Bağlantıyı al
Facebook
X
Pinterest
E-posta
Diğer Uygulamalar

Bu blogdaki popüler yayınlar

Macro'yla Borç Alacak Girişi ve Mizanı

Excel Macro kullanarak bir Borç Alacak Girişi ekranı oluşturacağız. Bu ekranı bir menüden çağıracağız. Bu menü, Excel sayfasındaki dikdörtgen şekle Makro Ata seçeneğiyle atanan prosedürle görüntüleyeceğiz. Borç Alacak Girişi ekranından Excel satırlarına yüklenen bilgilerden her bir Ad Soyad'a ilişkin borç ve alacaklar ayrı ayrı toplanacak. Bu borç alacak dengesinden bir Mizan oluşturacağız. Bu işlemler ile ilgili ekran görüntüleri ve ilgili Macro program kodları aşağıda verilmiştir. Bu kodları kopyalayıp değişiklik yaparak kullanabilirsiniz. Aşağıda önce Macro program kodlarını ve sonra ekran görüntülerini bulabilirsiniz. ------------------------------------------------------------------------------------------------------------------------- Excel'deki Dikdörtgen Şekle 'Makro Ata' Seçeneğiyle Atanan Public Prosedür Public Sub EkraniGoster() frmAnaMenu.Show End Sub ----------------------------------------------------------------------------...

Devamı

Eğer Benzerse

Excel'de Benzerlik kontrolü için, tırnak içinde ve amaca göre yeri değiştirilerek '*' işareti kullanılır. Bilinmeyen harflerin yerine '*' işareti yazılır. Örneğin, Başında 'H' harfini arıyorsak, "H*" , Ortasında 'e' harfi arıyorsak "*e*" , Sonunda 'z' harfini arıyorsak "*z" yazarız. Amaç Bileşik Fonksiyon İçinde e var mı? =EĞER(DEĞİL(EHATALIYSA(KAÇINCI("*e*";B1;0)));"Evet";"Hayır") H ile başlıyor mu? =EĞER(DEĞİL(EHATALIYSA(KAÇINCI("H*";B1;0)));"Evet";"Hayır") z ile bitiyor mu? =EĞER(DEĞİL(EHATALIYSA(KAÇINCI("*z";B1;0)));"Evet";"Hayır") Yukarıdaki bileşik fonksiyonlarda Kaçıncı fonksiyonunun birinci parametresinde kullanılan "*e", "H*", "*z" ölçütleri bizim benzeme kurallarımız oluyor. Kaçıncı fonksiyonu, B1 hücresinde ölçütün kaçıncı karakterde olduğunu bul...

Devamı

Macro'da For-Next ve If Kullanarak Koşullu Toplam

Bir For-Next döngüsü içinde If kullanarak, bir kolonda koşula uyanlara karşılık gelen satırlardan diğer kolondaki değerleri bir değişken üzerine toplamak üzere bir istek olduğunu varsayalım. Bu amaçla hazırladığım programı, aşağıda gerekli açıklamalar ile birlikte bulabilirsiniz. ------------------------------------------------------------------------------------------------------------------------- Sub KosulluToplam() Olcut = Range("D13") 'Range("D13") hücresindeki bilgiyi Olcut değişkenine ata. Min = 2 Max = Cells(Rows.Count, "A").End(xlUp).Row 'A kolonunun son satırını ilgili fonksiyonu kullanarak buldur. Toplam = 0 'Toplam değişkeni, başlangıç değeri olarak sıfırlanıyor. For i = Min To Max 'i indis değerini minimum değerden maksimum değere kadar artırarak Next satırına kadarki işlemleri yap. If Range("A" & i) = Olcut Then 'Range("A" ...

Devamı

Power BI'da Yeni Sütun Eklemek

Power BI'da yeni sütun eklemek için ilgili tabloyu seçin, üst menüdeki Yeni Sütun düğmesini tıklayın. Açılan formül giriş alanında eşittir işaretinin sağ tarafına formülü yazın, eşitin sol tarafına ise yeni sütunun adını yazın. Aşağıdaki örnekte bir başka tabloya Marka tablosuna bağlantı yapılıyor. Bu bağlantı tablolar arasındaki ilişki tarafından sağlanmaktadır.

Devamı

Macro'yla Excel'den Bölgesel Satış PDF Dosyaları Oluşturulması

Excel'de bir sayfadaki örneğin satışların ayrı ayrı PDF çıktılarının topluca oluşturulması istendiğinde gerekli Macro programı aşağıdaki BolumBolumPDF prosedüründe verilmiştir. Bulunduğunuz sayfadaki tüm satışların çıktısı için SayfadanPDF, Tüm Excel dosyasındaki sayfaların çıktısı için DosyadanPDF prosedürünü kullanınız. Aşağıdaki prosedürlerin kullanımı için Excel sayfalarında özel bir menü veya düğmeler oluşturulmamıştır. Excel sayfasındayken Alt-F8 yaptığınızda gelen menüden seçim yapılmıştır. Amacım, Alt-F8 Makro seçim menüsünün kullanımını göstermektir. PDF dosyalar Belgelerim klasöründe oluşmaktadır. ' ---------------------------------------------------------------------------------------------------------------------- Option Explicit Dim MinRow(1 To 50), MaxRow(1 To 50) As Integer Dim SonSatir, SonKolon, i, r, b As Integer Dim SonKolonAdi, BolumBaslangici, BolumBitisi, CiktiKategoriAdi As String ' -----------------------------------------...

Devamı

Bir Fatura İle İlgili Alınan Ödemelerin Macro'yla Listelenmesi

Excel'de bir dosya veya fatura ile ilgili alınan ödemelerin listelenmesi ile ilgili Macro kodu aşağıdadır. Bu kod, ilgili sayfanın kod kısmına yazılıyor. ------------------------- ------------------------- ------------------------- ------------------------- -------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then 'B1 hücresi değiştiyse 'Ödemeler sayfasında son satır no bulunuyor. n = WorksheetFunction.CountA(Sheets("Ödemeler").Range("A:A")) + 1 c = 5 i = 14 imax = 50 sayac = 1 Aranan = Range("B1") ActiveSheet.Unprotect 'Sayfanın koruması kaldırılıyor. Range(Cells(1, c - 1), Cells(imax, c + 2)).Clear Cells(i - 2, c) = Aranan & " Ödemeleri" Cells(i - 1, c + 0) = "Ödeme Tarihi" Cells(i - 1, c + 1) = "Makbuz No" Cells(i - 1, c + 2) = "Ödeme Tu...

Devamı

Kümülatif Toplam

Kümülatif Toplam için iki ayrı formül veriyorum. Formül-1. Bulunduğumuz satırdaki toplanacak değere üst satırdaki toplam değerinin eklenmesiyle =B2 =C2+B3 =C3+B4 =C4+B5 =C5+B6 =C6+B7 =C7+B8 =C8+B9 =C9+B10 =C10+B11 =C11+B12 =C12+B13 Formül-2. Aralık bazında toplama işlemi yapan TOPLA(aralık) fonksiyonundaki aralığın başlangıç hücresini sabit yapıp, bitiş hücresini serbest bırakılmasıyla =TOPLA($B$2:B2) =TOPLA($B$2:B3) =TOPLA($B$2:B4) =TOPLA($B$2:B5) =TOPLA($B$2:B6) =TOPLA($B$2:B7) =TOPLA($B$2:B8) =TOPLA($B$2:B9) =TOPLA($B$2:B10) =TOPLA($B$2:B11) =TOPLA($B$2:B12) =TOPLA($B$2:B13)

Devamı

İlk SQL Sorgu Cümlelerimiz

SQL kullanmak için, ya çalıştığınız firmada SQL veritabanı sistemini kullanan bir yazılım olmalı. Bu yazılımın kullandığı SQL Oracle, MSSQL, Sybase, PostgreSQL, MySQL olabilir. Bunların hepsinde komut yazılışları çok büyük ölçüde aynıdır. Aralarında ufak farklar vardır ve bu farkları öğrenip, birinden diğerine rahatça geçiş yapabilirsiniz. Biz burada MSSQL kullanacağız. Sizler MSSQL programını İnternet'ten indirip kurabilirsiniz. Sizlerin programı kurmuş olduğunuzu varsayarak MSSQL kullanımını sizlere adım adım anlatacağım. ----------------------------------------------------------------------------------------------------------------------------- İlk SQL sorgu cümlelerimiz için basit bir tablodan başlayacağım. Elimizde Kisiler isimli bir tablo olsun. Bu tablonun kolonları KisiID, KisiAdi, KisiSoyadi, TCKimlikNo, DogumTarihi, EmailAdresi olsun. Bu tablodan önce tüm kolonları ve tüm kayıtları listelemek isteyelim. Tüm kolonları listelemek i...

Devamı

Macro'da Hücre Seçildiğinde Otomatik İşlem Yapılması

Aşağıdaki prosedür, belirtilen hücre seçildiğinde ve hücrede değer varsa istenilen işlemleri yapmaktadır. Prosedür, sayfa bazında ve özel bir düğme olmadan çalışmaktadır. Prosedürün çalışması için, Macro ekranındayken ilgili sayfa seçiliyken editör kısmına yazılmalıdır. Örneğimizde de, Sayfa1 seçiliyken prosedür editör kısmında yazılmıştır. Aşağıdaki örnek, basit olması için, birinci kolon ve birinci satırdaki hücre üzerinde kontrol ve işlem yapılmıştır. ' ---------------------------------------------------------------------------------------------------------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) KolonNo = 1 SatirNo = 1 'Aktif hücre kolonu belirtilen kolon ve satırı belirtilen satır ve aktif hücre boş değilse If ActiveCell.Column = KolonNo And ActiveCell.Row = SatirNo And ActiveCell.Value <> "" Then ActiveCell.Font.Bold = True 'İşlem-1 MsgB...

Devamı