Excel VBA Makro Kod Örnekleri - 6 ( Birkaç WorkSheets Örn.)

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

Excel VBA Makro Kod Örnekleri - 6 ( Birkaç WorkSheets Örn.)

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

Kod: Tümünü seç
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'ThisWorkBook sayfasına yazılır, herhangi bir sayfa seçildiğinde o sayfadaki sütunlardan
'en sondaki veriye sahip ise, o dolu hücrenin satır numarasını verir
  x = Sh.UsedRange.Rows.Count
  MsgBox x
End Sub


Kod: Tümünü seç
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Seçili sayfadaki hücrelerin en son veri bulunan hücresi ile ilk veri bulunan hücresinin
'adresini verir, sıralamayı önce soldan sağa, sonra yukarıdan aşağı mantığında yapacağını unutmayın.
  x = Sh.UsedRange.Rows.Address
If x = "$A$1" Then Exit Sub
  MsgBox x
End Sub


Kod: Tümünü seç
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Seçili sayfadaki hücrelerin en son veri bulunan hücresi ile ilk veri bulunan
'hücreler aralığını seçili yapar, sayfada tek hücrede veri varsa onu bulur, hiç veri
'yoksa A1 hücresini seçer
  x = Sh.UsedRange.Rows.Address
  Range(x).Select
If x = "$A$1" Then Exit Sub
End Sub


Kod: Tümünü seç
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not Me.Saved Then
        Mesaj = "Beni (" & Me.Name & ") kaydetmedin, çıkmak istediğine emin misin ?   "
        Cevap = MsgBox(Mesaj, vbQuestion + vbYesNoCancel, "Www.ExcelVBA.Net")
        Select Case Cevap
            Case vbYes
                Me.Save
            Case vbNo
                Me.Saved = True
            Case vbCancel
                Cancel = True
                Exit Sub
          End Select
    End If
End Sub
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ü

Excel VBA Makro Kod Örnekleri - 6 ( Birkaç WorkSheets Örn.)

İleti#2)  Erhan Yavuz » 17 Eyl 2008 21:23

[TESEKKÜR]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Excel VBA Makro Kod Örnekleri - 6 ( Birkaç WorkSheets Örn.)

İleti#3)  MAJUHOO » 22 Eyl 2008 10:04

Çalışmalarınızı tebrik ediyorum. Emeğinize sağlık güzel bir proje. Lakin son yapmış olduğunuz kodlamada, sorulan soruya hayır dahi dense kaydetmeden çıkıyor. bilginiz olsun isterim. Tekrar kutlarım.
Alacağınız her çıktı, bir ağaç yaprağı...
Hayat 3 ila 4 arasıdır ya 3,5 atarsın yada 4 - 4 lük yaşarsın...
MAJUHOO
Site Dostu
 
Adı Soyadı:KADRİYE OMRAK
Kayıt: 15 Tem 2008 12:40
Yaş: 35
İleti: 502
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Excel VBA Makro Kod Örnekleri - 6 ( Birkaç WorkSheets Örn.)

İleti#4)  Tarkan VURAL » 22 Eyl 2008 10:35

Şu kodu deneyin.

Kod: Tümünü seç
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
        Mesaj = "Beni (" & Me.Name & ") kaydetmedin, çıkmak istediğine emin misin ?   "
        If MsgBox(Mesaj, vbQuestion + vbYesNo, "Www.ExcelVBA.Net") = vbNo Then
            Cancel = True
        Else
            Me.Saved = False
            ActiveWorkbook.Close
        End If
    Application.DisplayAlerts = True
End Sub
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ü

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

Excel VBA Makro Kod Örnekleri - 6 ( Birkaç WorkSheets Örn.)

İleti#5)  yilmaz » 08 Ekm 2008 17:11

tesekkurler
Kullanıcı avatarı
yilmaz
 
Adı Soyadı:yilmaz demir
Kayıt: 08 Ekm 2008 17:09
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/umraniye

Cevap: Excel VBA Makro Kod Örnekleri - 6 ( Birkaç WorkSheets

İleti#6)  uyrdkl » 16 May 2009 23:05

Emğiniz için 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

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel VBA Makro Kod Örnekleri - 6 ( Birkaç WorkSheets

İleti#7)  enpel » 19 May 2009 11:02

Emeginize teşekkürler
Kullanıcı avatarı
enpel
Siteye Alışmış
 
Adı Soyadı:engin pelit
Kayıt: 18 Nis 2009 14:24
Konum: istanbul
Meslek: tekniker
Yaş: 39
İleti: 113
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: Excel VBA Makro Kod Örnekleri - 6 ( Birkaç WorkSheets

İleti#8)  ozuberk » 16 Haz 2011 14:53

[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


Forum Örnek Kodlar

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe