Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

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

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

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

Kod: Tümünü seç
Sub AsagiSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
' Bulunduğunuz hücreden en alttaki dolu hücreye kadar tüm sütundaki hücreleri seçili yapar Ctrl+Shift+Down yaptığı iş, dolu hücre yoksa sona kadar seçer
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub


Kod: Tümünü seç
Sub YukariSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
' Bulunduğunuz hücreden en üstteki dolu hücreye kadar tüm sütundaki hücreleri
'seçili yapar Ctrl+Shift+Up yaptığı iş, dolu hücre yoksa sona kadar seçer
    Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub


Kod: Tümünü seç
Sub SagaSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
' Bulunduğunuz hücreden en sağdaki dolu hücreye kadar tüm sütundaki hücreleri seçili yapar Ctrl+Shift+Right yaptığı iş, dolu hücre yoksa sona kadar seçer
    Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub


Kod: Tümünü seç
Sub SolaSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
' Bulunduğunuz hücreden en sağdaki dolu hücreye kadar tüm sütundaki hücreleri seçili yapar Ctrl+Shift+Left yaptığı iş, dolu hücre yoksa sona kadar seçer
    Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub


Kod: Tümünü seç
Sub TumDolulariSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
' Bulunduğunuz hücre dolu bir hücreye yakınsa, ucundan bucağından temas ediyorsa dolu hücrelerin tümünü seçili yapar Ctrl+Shift+* yaptığı iş, dolu hücre yoksa çalışmaz
    ActiveCell.CurrentRegion.Select
End Sub


Kod: Tümünü seç
Sub SutundakiDolulariSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
' Bulunduğunuz hücre dolu bir hücreyse, ardışık boşluksuz üstü ve altındaki sıragelen dolu hücreleri seçili yapar
'   Eğer seçili hücre boşsa çalışma
    If IsEmpty(ActiveCell) Then Exit Sub
    On Error Resume Next
    If IsEmpty(ActiveCell.Offset(-1, 0)) Then
        Set ilk = ActiveCell
    Else
        Set ilk = ActiveCell.End(xlUp)
    End If
    If IsEmpty(ActiveCell.Offset(1, 0)) Then
        Set son = ActiveCell
    Else
        Set son = ActiveCell.End(xlDown)
    End If
    Range(ilk, son).Select
End Sub


Kod: Tümünü seç
Sub SatirdakiDolulariSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
' Bulunduğunuz hücre dolu bir hücreyse, ardışık boşluksuz sağa ve sola sıragelen dolu hücreleri seçili yapar
    If IsEmpty(ActiveCell) Then Exit Sub
'   Eğer seçili hücre boşsa çalışma
    On Error Resume Next
    If IsEmpty(ActiveCell.Offset(0, -1)) Then
        Set sol = ActiveCell
    Else
        Set sol = ActiveCell.End(xlToLeft)
    End If
    If IsEmpty(ActiveCell.Offset(0, 1)) Then
        Set sag = ActiveCell
    Else
        Set sag = ActiveCell.End(xlToRight)
    End If
    Range(sol,sag).Select
End Sub


Kod: Tümünü seç
Sub TumSatiriSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'Aktif hücrenin ait olduğu tüm satırı seçili yapar, Shift+Spacebar işi ile aynı
    Selection.EntireRow.Select
End Sub


Kod: Tümünü seç
Sub TumSutunuSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'Aktif hücrenin ait olduğu tüm satırı seçili yapar, Ctrl+Spacebarişi ale aynı
    Selection.EntireColumn.Select
End Sub


Kod: Tümünü seç
Sub SayfadakiTumHucreleriSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'Makronun adı da üzerinde zaten, sayfa içindeki boş dolu tüm hücreleri seçili yapar, Ctrl+A ile aynı iş
    Cells.Select
End Sub


Kod: Tümünü seç
Sub SutundaSonrakiBosHucre()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'Seçili hücrenin altındaki boş hücreyi seçer, dolu hücreye rastlarsa onları atlayıp altındaki boş hücreyi seçili yapar
     ActiveCell.Offset(1, 0).Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub


Kod: Tümünü seç
Sub SatirdaSonrakiBosHucre()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'Seçili hücrenin sağındaki boş hücreyi seçer, dolu hücreye rastlarsa onları atlayıp sonrasında sağdaki boş hücreyi seçili yapar
    ActiveCell.Offset(0, 1).Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(0, 1).Select
    Loop
End Sub


Kod: Tümünü seç
Sub SatirdakiDolulariBulSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'Seçili hücre ister boş ister dolu olsun, ilk dolu hücre ile son dolu hücreleri seçili yapar, arada boşluklar olsa bile...
    Set sol = Cells(ActiveCell.Row, 1)
    Set sag = Cells(ActiveCell.Row, Columns.Count)
    If IsEmpty(sol) Then Set sol = sol.End(xlToRight)
    If IsEmpty(sag) Then Set sag = sag.End(xlToLeft)
    If sol.Column = Columns.Count And sag.Column = 1 Then
        ActiveCell.Select
    Else
        Range(sol, sag).Select
    End If
End Sub


Kod: Tümünü seç
Sub SutundakiDolulariBulSec()
'Www.ExcelVBA.Net - Excel, Makro, VBA örnekleri
'Seçili hücre ister boş ister dolu olsun, satırdaki ilk dolu hücre ile son dolu hücreleri seçili yapar, arada boşluklar olsa bile...
    Set ilk = Cells(1, ActiveCell.Column)
    Set son = Cells(Rows.Count, ActiveCell.Column)
    If IsEmpty(ilk) Then Set ilk = ilk.End(xlDown)
    If IsEmpty(son) Then Set son = son.End(xlUp)
    If ilk.Row = Rows.Count And son.Row = 1 Then
        ActiveCell.Select
    Else
        Range(ilk, son).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 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27005
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

İleti#2)  Erhan Yavuz » 17 Eyl 2008 10:07

--)( [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 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 60
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

İleti#3)  MAJUHOO » 22 Eyl 2008 08:30

Emeğinize sağlık. Paylaşımınız için teşekkürler.
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 10:40
Yaş: 36
İleti: 502
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

İleti#4)  Tarkan VURAL » 31 Ekm 2008 17:40

Rica ederim, çoğunu ben aktif olarak kullanmasamda, kullanmak isteyenler için kodlar güzel bir çözüm önerisi içeriyor.
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 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 27005
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

İleti#5)  Eskikentli » 16 Kas 2008 23:34

Sayın Tarkan Vural
şahsen bu ben bu bilgilerden faydalanıp bir şeyler öğrendiğim için teşekkürlerimi sunuyorum.

Bana bir harf öğretenin kölesi olurum.
Hz.Ali
İLİM ÖĞRETENLERİN DEĞERİ ZENGİNLİK DEDİĞİMİZ TÜKENECEK DEĞERLERLE EŞ TUTULAMAZ. Maltuğ

Kullanıcı avatarı
Eskikentli
Yeni Başlamış
 
Adı Soyadı:Muzaffer Altuğ
Kayıt: 16 Kas 2008 23:18
Konum: Microsoft Office Professional Plus 2010
Meslek: Muhasebecilik
Yaş: 43
İleti: 80
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskikent

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

İleti#6)  muayyercom » 19 Kas 2008 13:30

sevgili dostlar. ben şunu sormak istiyorum. mesela excel açılışta selamlama diye bir kod var onu. basic düzenlemeye ekledim. orada çalıştırdım çalışıyor. peki excelde ne yapmam gerekiyor. bu kodları çalıştırmak için. yani bu kodları nasıl kullanabilirim. yardımcı olurmusunz.

teşekkürler
Kullanıcı avatarı
muayyercom
İsimsiz Üye
 
Adı Soyadı:muayyer com
Kayıt: 19 Kas 2008 10:31
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kayseri

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

İleti#7)  M Kubilay Karabulut » 19 Kas 2008 13:33

"Selamlama" ne demek ?
" WeWhoAreNotAsOthers"
Kullanıcı avatarı
M Kubilay Karabulut
Yönetim Kurulu
 
Adı Soyadı:Mustafa Kubilay KARABULUT
Kayıt: 15 Haz 2008 00:10
Konum: Maltepe/Istanbul
Meslek: Finans
Yaş: 41
İleti: 732
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Maltepe/İstanbul

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

İleti#8)  Erkan Akayay » 19 Kas 2008 13:57

Şu linki inceleyin

http://www.excelvba.net/viewtopic.php?f=65&t=468

Siz userform içine değilde Sayfa içine bir CommandButton ekleyin. En basit yol bu başlangıç için.
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 49
İleti: 4029
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

İleti#9)  BDURNA » 28 Kas 2008 14:02

[TESEKKÜR]
Kullanıcı avatarı
BDURNA
Yeni Başlamış
 
Adı Soyadı:Bahattin DURNA
Kayıt: 14 Kas 2008 14:35
Konum: acemi
Meslek: serbest meslek (eczacı teknisyeni, hayvancılık)
Yaş: 38
İleti: 99
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: KAYSERİ/BÜNYAN

Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - ActiveCell )

İleti#10)  hydeen » 22 Oca 2009 14:52

[TESEKKÜR] şkşk
Kullanıcı avatarı
hydeen
 
Adı Soyadı:Erdal Büyükelçi
Kayıt: 21 Oca 2009 11:59
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/bağcılar

Cevap: Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - Activ

İleti#11)  uyrdkl » 16 May 2009 21:15

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

Cevap: Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - Activ

İleti#12)  recep71 » 02 Eyl 2010 23:21

Allah razı olsun, bu kadar zahmete girip açıklamalar yapmşsınız.

Pek de güzel olmuş. Takdirle karşıladım.
Selamlar...

Recep
Kullanıcı avatarı
recep71
 
Adı Soyadı:recep arslan
Kayıt: 29 Ağu 2010 21:54
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Excel VBA Kod Örnekleri - 4 ( Seçili Hücreler - Activ

İleti#13)  ozuberk » 16 Haz 2011 12:51

[TESEKKÜR]
Kullanıcı avatarı
ozuberk
Yeni Başlamış
 
Adı Soyadı:ozgur ozuberk
Kayıt: 14 Tem 2009 18:04
Konum: istanbul
Meslek: muhasebe
Yaş: 69
İ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