Excel VBA Makro Kod Örnekleri - 5

Excel VBA açık kodlarını buradan izleyebilir ve paylaşabilirsiniz.

Excel VBA Makro Kod Örnekleri - 5

İleti#1)  Tarkan VURAL » 17 Eyl 2008 16:48

Kod: Tümünü seç
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'API desteği ile Wav Dosyası Çalar
Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub WavDosyaCal()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
    WavVDosya = "WindowsKapat.wav"
    WavVDosya = ThisWorkbook.Path & "\" & WavDosya
    Call PlaySound(WavDosya, 0&, SND_ASYNC Or SND_FILENAME)
End Sub



Kod: Tümünü seç
Sub KlasorListesiDizini()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'VB6 da kullanılan buna benzer bir nesne modeli var ve klasör işlemlerinde oldukça fazla sayıda işe

yarıyor. Bu kodu, klasör işlemleri yapıyorsanız şiddetle tavsiye ediyorum. Function ile birlikte olmalı.
Dim Msg As String
    Msg = "Lütfen seçim yapınız"
    MsgBox KlasorListe(Msg)
End Sub

Function KlasorListe(Optional Msg) As String
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
    Dim bInfo As BROWSEINFO
    Dim path As String
    Dim r As Long, x As Long, pos As Integer

'   Varsayılan = Desktop
    bInfo.pidlRoot = 0&

'   Dialog kutusundaki başlığı yazalım
    If IsMissing(Msg) Then
        bInfo.lpszTitle = "Lütfen listeden klasör seçimi yapınız."
    Else
        bInfo.lpszTitle = Msg
    End If
    bInfo.ulFlags = &H1
    x = SHBrowseForFolder(bInfo)
    path = Space$(512)
    r = SHGetPathFromIDList(ByVal x, ByVal path)
    If r Then
        pos = InStr(path, Chr$(0))
        KlasorListe = Left(path, pos - 1)
    Else
        KlasorListe = ""
    End If
End Function


Kod: Tümünü seç
Sub BosSatirlariTemizle()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'Sayfada alt alta verileriniz var ve arada temizlenmesi gereken boş satırlar var ise bu kod işinize

yarayacaktır.
Dim i as Long
    hucre = ActiveSheet.UsedRange.Row - 1 + _
        ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For i = hucre To 1 Step -1
        If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
    Next i
End Sub


Kod: Tümünü seç
Sub YazdirilabilirSayfaSayisi()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'Sayfa içerisinde herhangi bir veri bulunmadığında baskı önizleme ve yazdırma yapamazsınız. Bunun test

işlemini aşağıdaki kod ile gerçekleştirebilirsiniz.
    Sayi = 0
    For Each Sayfa In Worksheets
        Sayfa.Activate
        Pages = ExecuteExcel4Macro("Get.Document(50)")
        Sayi = Sayi + Pages
    Next Sayfa
    MsgBox "Toplam " & Sayi & " sayfa yazdırılabilir durumda",,"Www.ExcelVBA.Net"
End Sub


Kod: Tümünü seç
Sub SeciliHucreyeDegeriYaz()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
    Dim KullaniciSecimi As Range
    Deger = "Www.ExcelVBA.Net"
    Mesaj = "Değerinizi yazdırmak için hücre seçiniz"
    Baslik = "Hücre Seçimine Değer Yazmak"

'   Application'un Inputbox' ını çağıralım
    On Error Resume Next
    Set KullaniciSecimi = Application.InputBox(Prompt:=Mesaj, Title:=Baslik, Default:=ActiveCell.Address,

_
        Type:=8)  'Hücre seçimi için sabit değer

'   Eğer seçimden vazgeçilirse mesaj verdirelim
    If KullaniciSecimi Is Nothing Then
        MsgBox "Vazgeçildi", vbInformation, "Www.ExcelVBA.Net"
    Else
        KullaniciSecimi.Range("A1") = Deger
    End If
End Sub


WavDosyasi_Cal.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26822
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Excel VBA Makro Kod Örnekleri - 5

İleti#2)  uyrdkl » 16 May 2009 23:00

teşekkürler
Kullanıcı avatarı
uyrdkl
Yeni Başlamış
 
Adı Soyadı:Ümit Yurdakul
Kayıt: 16 May 2009 22:32
Konum: Adana
Meslek: Tekniker
Yaş: 52
İleti: 18
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Excel VBA Makro Kod Örnekleri - 5

İleti#3)  ozuberk » 16 Haz 2011 14:52

[TESEKKÜR]
Kullanıcı avatarı
ozuberk
Yeni Başlamış
 
Adı Soyadı:ozgur ozuberk
Kayıt: 14 Tem 2009 20:04
Konum: istanbul
Meslek: muhasebe
Yaş: 68
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Excel VBA Makro Kod Örnekleri - 5

İleti#4)  ArF » 06 Oca 2017 19:27

Merhabalar

Bir sütunda veriler var ve aralarda boşluklar da var. Bu sütundaki boşlukları macro ile nasıl kaldırabiliriz?
Kullanıcı avatarı
ArF
Yeni Başlamış
 
Kayıt: 13 Arl 2014 01:37
Meslek: Öğretmen
Yaş: 30
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kütahya Gediz

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Örnek Kodlar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe