Excel Kod Arsivi
Click here to load reader
-
Upload
valentino06 -
Category
Documents
-
view
2.947 -
download
1.945
Transcript of Excel Kod Arsivi
Sayfa Silerken Uyarı Gelmemesi
"A1:m8" hücrelerinin arkaplani yanip söner
0 olan hücreleri geri alma
0 Sıfırın tüm çalışma kitabında gösterilmemesi için
1 Den 26 ya kadar olan kolon sayısı kadar gizleme
1. Satirla 2. Satir arasina 7 tane satir ekledİ
1.pir adlı sayfayı kopyalayarak 10 adet çoğaltır ve .pir ekler
1.Satır 1.Sütunu seç
1.sayfa hariç diğerlerini uyarısız siler
1.Sayfa hariç tüm sayfalari gİzle
1.Sayfayı açma
10 Sn süreli mesaj
10.Satırdan itibaren gizleme ve gösterme
100 Buton bar ekle kaldır
2 Listboxlar arası verş taşıma
2 Listboxlar arası verş taşıma
2 Tane userform_inİtİalİze olayini bİrleŞtİrme
2.sütunda çift tıkla eklenecek satırı belirle
3 Boyutlu hücreye kenarlık
3 Kere şifre hakkı
3 Sn içerisinde msg box alarm
30 Excel dosyasi İÇİnde bİr kelİme aratma
4 işlem programı(basit)
4. Satırda işlem yapılırsa macro otomatik çalışsın
4. Sütunda işlem yapılırsa macro otomatik çalışsın
5 Dk da bir kitabı kaydetme
5. Sütünundaki hücreye girilen veriye karşılık farklı farklı makroların çalışması
65536 Dan Çoksa dİĞer sheet ' e atsin İstİyorum....
9 Farkli deĞer İÇİn koŞullu bİÇİmlendİrme
A hücresindeki değere göre sayfaya kaydetme
A ile b'yi karşılaştır, aynı olanları c'ye, farklı olanları d'ye yaz
A sütunu Auto_Copy
A sütununa pir yazınca makro çalışsın
A sütununda aralarda boş satırları siler ve yukarı çeker
A sütununda aynı değerde olanları yazdırma alanı olarak ayırır
A sütununda aynı olanlardan 1 tane bırakır ve sıraya dizer
A sütununda aynı olanları sayfa alanı olarak ayırır
A sütununda aynı olanları sayfa alanı olarak ayırır2
A sütununda boş satırları siler
A sütununda boşlukları aldırma doluları listeleme
A sütununda bugünü bulsun
A sütununda en son sırada olan veriyi b1 e kopyalar
A sütununda herhangi bir hücreye tıkla satır numarasını versin
A sütununda verilere göre sayfa ekler ve d sütununa kadar olan verileri de yazar
A sütunundaki aynı değerleri öbür sayfada süzüp b deki toplamlarını ilave eder
A sütunundaki boş satırları gizler
A sÜtunundakİ dolu hÜcrelerİ bulur ve yazdirma alani İÇİne alir
A sütunundaki en büyük sayı için
A sütunundaki en son veriyi b1 e yaz
A sütunundaki sayılara 1 ekler c sütununa yazar
A sütunundakiler combboxta, combobox seçilince B,C,D dekiler textboxta
A sütunundakileri 100 ile toplar b sütununa yazar
A sütunundakileri benzersiz olacak şekilde ayıklar
A sütunundakileri benzersiz olacak şekilde ayıklar2
A sütunundakileri saydırın
A sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar but
A sütununu hücrelerini çerçeve içerisine alır
A sütünündaki sayıları sıralar (aradan biri silinice bile sıralar)
A sütünündaki sayıları sıralar (aradan biri silinice bile sıralar) 2
A ve c sütunundaki veriler aynıysa o satırı silsin
A, b sütunlarını topla c'ye yaz
a,b,c sütununda arar bulur
A,B,C,D sütunundaki verilerden H1 e yaz I1 de bulsun
A:a sÜtunundakİ dolu satirlarin altina boŞ satir ekler
A:a200 hÜcrelerİndekİ verİlerden lİstbox a sadece dolu hÜcrelerİ alir. (BoŞ hÜcreler
A1 0 ise 10 ve 20.Satırlar arasını gizle değilse göster
A1 0 ise a10:a20 arasını gizle değilse göster
A1 0 ise c10:c20 gizle 1 ise göster
A1 1 ise b1 mart
A1 10 karakterden fazla ise mesaj ver
A1 b1 den itibaren numaralar(kodlar) ve damgalar
A1 boş ise (silersen) 10 yapar
A1 de adı yazan sayfayı acmak
A1 de kritere göre filtreleme (süz işlemi)
A1 de şartlı sayı verme
A1 deki email adresine mesaj gönderir
A1 deki formülü öğrenme
A1 deki isimle farklı kaydet
A1 deki isimle yeni sayfa + aynısı var ikazı
A1 deki isimle yeni sayfa oluşturma
A1 deki isimleri listboxta sıralı olarak gösterir
A1 deki kelimeyi sesli ve sessiz olarak ayırır
A1 den itibaren ne kadar sayfa varsa yazar
A1 den itibaren veri olan hücreye kadar seçer
A1 den itibaren verili hücrelere 1 er satır ekler
A1 den sayfa oluşturma
A1 den sıra numarası verir veya aktif satır numarasını versin(klavye-fare seç)
A1 devamlı a2 de toplanacak
A1 e değer girin ce makro kodları çalıştırma
A1 e değer girince 10 ile çarp a2 ye yaz
A1 e her veri girişinde b1,c1 sırasıyla hep yan kolona artarak yazar
A1 e kullanıcı adını yazdırma
A1 e mail linki vermek ve outloook’u a1 deki maille açma
A1 e mesajla veri girme ve mesaj kutusunda a1 deki veriyi görme
A1 e sadece rakam girer (yazı girince 0 yapar) ve devamlı a1 de toplar
A1 e tarihi gir b1 de kaçıncı hafta olduğunu bulsun
A1 e veri girildikten sonra 100 e bölünmesi
A1 e veri yazılınca solda üstbilgi ekleme
A1 e yaz b1 de devamlı toplasın
A1 e yazılan (i) harfinin 90 derece yatık olması
A1 hücre ismiyle farklı kaydetme
A1 hücresi boşsa kaydetme
A1 hücresi dolu ise d1 gizle, boş ise göster
A1 hücresinde saat
A1 hücresindeki isimle sayfayı istenilen yere kaydetme
A1 hücresindeki isimle yeni sayfa
A1 hücresine hapsetmek
A1 hücresine rakam yazmak mecburi yoksa diğer hücrelere geçiş yasak
A1 hücresine x yazınca yanıp sönme efekti
A1 hÜcresİnİ b1yapiŞtir c1 gİtsİn
A1 i 1 artırma
A1 ile sayfa ekleme ekleyerek
A1 itibaren sayfa isimlerini yaz
A1 sütununda çift kayıt girmek yasak (hücreyeelle girersen siler)
A1 ve b1 hücresindeki verileri birleştirme
A1, a3 ten küçükse mesaj verir.
A1,b1,c1,d1 e yazı yaz kolonları seç ve sil (bekletmeli silme)
A1:a10 , c1:c10 u karşılaştırır girilen rakamlar farklı ise uyarı verir
A1:a10 arasındaki hücreleri rastgele seçer:
A1:A10 hücreleri arasında 10 dan büyükleri kalın yapar
A1:A10 hücreleri arasında 10 olanları 21 yapar
A1:a10 hücreleri arasındaki boş hücreleri yeşile boyar
A1:a10 hÜcrelerİ arasindakİ boŞ hÜcrelerİ yeŞİle boyar
A1:a10 topla mesaj ver toplamını a11 e yaz
A1:a1000 arası aynısını yama
A1:a30 sınıf adı, b1-b30 sınıfı 2 comboboxta gösterimi
A1:A5 e sayı yaz c1 e de bunların toplamı 100 değilse uyarı verir
A1:A5 e sayı yaz c1 e de bunların toplamı 100 ise uyarı verir
A1:A5 e sayı yaz c1 e de bunların toplamı 100den aşağı ise uyarı verir
A1:a5 verileri ile birlikte ait olunan ay ve yıl isimli yeni sayfa ekler
A1:a50 ad soyadları textboxta arat listboxta listele
A1:a50 adları textboxta arat listboxta listele
A1:af12 hücreleri arasındaki veriler yanıp söner
A1:af12 hÜcrelerİ arasindakİ verİler yanip sÖner
A1:an1000 arasindakİ text İle bulunan satirdakİ dolu hÜcrelerİ lİstboxa atmak İstİyo
A1:b10 hücrelerine ad tanımlar
A1:b5 arasına tıklayınca açılan userform 1
A1:b5 arasına tıklayınca açılan userform 2
A1:c10 arası veri girilince e1:e10 arasına tarihini ekler
A1:c10 arasının aynısını aktif hücreden itibaren yaz
A1:d20 arasında kırmızı olan hücreleri toplar
A1:d20 hÜcrelerİ arasindakİ arka plan rengİ kirmizi olan hÜcrelerİ toplar
A1:d4 ü seç b2 yi active et
A1:h1 satırlarını diğer sayfalara da uygulatın
A1:j44 harici hücreleri gizleme
A1:j44 harici hücreleri gösterme
A1:m8 hücrelerinin arkaplanı yanıp söner
A1=1 ise yanıp sönsün 0 ise dursun
A1=1, c1=3, b sütunu ise gizli olsun. Sayfa2 ye a1=1, b1=3 olur
A16:g28 hücrelerini seçer ve 0 yapar
A1-a20 arasına veri girersen mesaj verir
A1-a5 arasının ilk harflerini büyük harfe çevirir
A1'den a3000 e kadar olan hücrelerde eğer herhangi bir veri varsa kırmızı yapar ve
A1'e tarih girmeye zorlamak vba ile
A2 deki tarihi gün ay yıl olarak b2,c2,d2 ye alır
A2 hücresiyle birbiri üzerine ekleme
A3 seç 2 satır aşağı ve 2 satır yana 5 yaz
A3 e ne yazarsan b7 de aynısı
A3:f15 hücreleri arasındaki verileri yazdırır
A5 =2 ise userform açılmasın
Aç penceresi
Açık olan tüm kitapların kapatılması
Açıklama ekleme
Açıklama formunu kapatır
Açıklama formunun adresi
Açıklama silme
Açıklamadaki yazı genişliğini otomatik sığdırma
Açıklamanın yazı puntosu ve kalınlığı
Açıklamaya resim eklemek
Açılan kitabın ekranını büyütür
Açılış makrosu (istenilen sayfa)
Açılış makrosu(aktif pencerede mesaj verir.)
Açılış ta prosedür (makro) çalıştırma
Açılışta aktif pencerenin minimize olması
Açılışta ayrı menü olarak araç düğmelerinden bir kaçını getirme
Açılışta b1 tarihi b2 ye kaç kez açıldığını yazar
Açılışta f8 tuşu ila makro çalıştırma
Açılışta istediğin makronu çalışsın
Açılışta istediğiniz makro otomatik çalıştırma
Açılışta istenen sayfa
Açılışta istenilen sayfayı gizleme, kaydetme iptali
Açılışta karşılama ismini yaz hello .... Desin
Açılışta makronun kayıt edilmesi ve çalıştırılması
Açılışta msgbox
Açılışta sayfa sayısını mesajla öğrenme
Açılışta sayfanın gösterilmesi ve kapanışta görünmemesi
Açılışta tablo korumasını kaldır parolasını sorar
AÇik dosyanin tekrar
AÇik İkİ excel dosyasindan sadece bİrİnİ kapatmak.
AÇik olan dosyanin bulunduĞu yerİ ÖĞrenmek
AÇik olan tÜm excel sayfalarini kayit ederek kapatabİlİyoruz..
AÇiklama formunun adresİ
AÇiklamayi kapar
AÇiliŞta İstedİĞİn makronu ÇaliŞmasi
AÇiliŞta İstedİĞİnİz makro otomatİk Çal&
AÇiliŞta Önce user form gelsİn
Ad oluşturma penceresi
Ad tanımla penceresi
Ad tanimli hÜcrelerİn ayri olarak seÇİmİ
Ad ve soyadı karşılaştırarak kayıt yapan kodlar
Adlandırılmış hücreleri wb_names sayfasında ayrıntılı listeler
Adres göstererek gizleme
Ağ bağlantınızın adı
Ağ üzerinden diğer kitaptaki makroyu çalıştırma
Ağdaki excel dosyasını açma
Aktif bulunan araç çubuklarını sayar, sıralar
Aktif çalışma kitabı hariç yüm kitapları kapat
Aktif Çalışma kitabının adını aktif hücreye yazdırır
Aktif çalışma kitabının kaydedilmesi
Aktif hücre bldirimi
Aktif hücre boş ve 0 değilse boş değilse 0 yapar
Aktif hücre renklensin
Aktif hücre veya seçilen hücrelere ad tanımlar
Aktif hücre veya seçilen hücrelere ad tanımlar "my range2"
Aktif hücrede çift tıkla üst satırların alttoplam formülünü yazsın
Aktif hücrede daha küçük değer girdirmez
Aktif hücrede formül varsa adresini ve formül cinsini verir
Aktif hücredeki metni harflere (sütunlara 3 er karaktere bölerek ayırır)
Aktif hücredeki metni harflere (sütunlara ayırır)
Aktif hücreden 7 satır aşağısını ve 7 satır yukarısını seçer
Aktif hücreden aşağısını seçer
Aktif hücreden aşağıya doğru sayfalara köprü atılır
Aktif hücreden bir alt hücreye sıçrar
Aktif hücreden bir hücre yukarı sıçrar
Aktif hücreden bir sağ hücreye sıçrar
Aktif hücreden itibaren 10 satır aşağıya 100 yazar ve toplar
Aktif hücreden itibaren b1 deki sayıdan başlayarak 1er sayı artırarak 10 sayı yazar to
Aktif hücreden itibaren istediğin sayıda satır ekler
Aktif hücreden sağa doğru seçer
Aktif hücreden sağa, sola, yukarı, aşağı son hücreye gitme
Aktif hücreden sola doğru seçer
Aktif hücreden yukarısını seçer
Aktif hücrelerdeki metinleri açıklama olarak yazan kodlar
Aktİf hÜcrelerİ renklendİrİr
Aktif hücrenin adresini mesajla öğrenme
Aktif hücrenin altındaki boş olan satırları siler
Aktif hücrenin bulunduğu satır renklensin
Aktif hücrenin bulunduğu satırı seçer
Aktif hücrenin bulunduğu sütunu (kolonu) seçer
Aktif hücrenin cinsini bulma
Aktif hücrenin numerik veya yazı olduğunu kontrol etme
Aktif hücrenin sayfa başına çıkmasını istiyor musunuz?
Aktif hücrenin üstüne 4 satır ekler
Aktif hücrenin yazdırılması
Aktif hücreye açıklama ekleme ve o açıklamanın yazı tipi ve puntosunu ayarlama
Aktif hücreye bugünün tarihini ekler
Aktif hücreye Çalışma kitabının ve aktif sayfanın adını yazdırır
Aktif hücreye çift tıkla 1 artırsın
Aktif hücreye çift tıkla alttoplam eklesin
Aktif hücreye çift tıklamayla tarih ekleme
Aktif hücreyi 1 artır
Aktif hücreyi 1 eksilt
Aktif hücreyi 30 artırma
Aktif hücreyi listbox ve textboxa alma (spinbutton kullanarak)
Aktif hücreyi seçince yakınlaştırıp uzaklaştırma (c2 hücresi)
Aktif kitabın email penceresi
Aktif kolonu seçer
Aktif olan çalışma kitabı pencerelerini minimize etme
Aktİf olan hÜcre renklensİn...
Aktif olan hücrede veri varsa ad tanımlar
Aktİf olan vİsual basİc formunun kapatilmasi
Aktif pencerenin başlığına kullanıcı adını atar
Aktif satırda hafta sonlarını işaretler
Aktif satırdan itibaren tek tek alt satırı seçer
Aktif satırın hepsini seçer
Aktif satırın herhangi bir sütununda bir satır bile dolu olsa silmez(Satırda boşlukları a
Aktif satırın herhangi bir sütununda bir satır bile dolu olsa silmez(Satırda boşlukları a
Aktif sayfa haricinde tüm sayfaları siler
Aktif sayfa ismini değiştirme
Aktif sayfa ve hedef hücrelerde saat formatı
Aktif sayfa ve hedef hücrelerde tarih formatı
Aktif sayfa ve hücreden itibaren tüm sayfaların isimlerini yazar ve sayfalara link ekler
Aktif sayfada a1 0 ise b1 e olur b1 e ise resmi gösterir
Aktif sayfada a1 den itibaren alt alta 3 hücreyi kalın yapar
Aktif sayfada aynı verilerin kontrolü
Aktif sayfada belli hücrelere girilen sayıların başına çift sıfır ekler
Aktif sayfada comboboxta sayfa isimleri tıklayınca sayfaya gitme
Aktif sayfada çıktı aldıktan sonra mesaj alma
Aktif sayfada rakama göre renk
Aktif sayfada rakama göre zemin rengi verme
Aktif sayfada rakama göre zemin rengi verme2
Aktif sayfada rakamla kelime birleştirme
Aktif sayfada sağ fare de menü
Aktif sayfada sağ fare yasak
Aktif sayfada tüm hücrelerde aynı hücreye devamlı rakam yaz, toplasın
Aktif sayfada Üst bilgi "my report" yazar "a1 den alır" (14 punto)
Aktif sayfada veri girilen hücrelere veri girildiği tarih ve saati açıklama olarak ekler
Aktif sayfada yazı yaz tarih ve saat,dakika,saniyesi ile açıklama ekler ve açıklamaları
Aktif sayfada yazılan harfler büyük
Aktif sayfada yazılan kelimeler büyük harf
Aktif sayfadaki dikdörtgendeki yazıyı hücreye kopyalar
Aktif sayfadaki formülleri bulur yeni sayfaya listeler
Aktif sayfadan modüldeki makroyu çalıştırma
Aktif sayfanın adını aktif hücreye yazdırır
Aktif sayfanın aynısını kopyalar."Newsheet" adında
Aktif sayfanın ismi a1 hücresinde
Aktif sayfanın ismi sayfa1 ise dosya kapanmasıın
Aktif sayfanın ismini öğrenme
Aktif sayfanın kopyalanması
Aktif sayfanın sağındaki ve solundaki sayfayı seçmek
Aktif sayfaya göre ayrı ayrı makro çalıştırma
Aktif sayfaya koruma koyma ve kaldırma
Aktif sayfaya veri girilince uyarı verip veriyi siler
Aktif sayfayı aktif ay adı ve yıl ile kopyalar ve çoğaltır
Aktif sayfayı emaille gönderme
Aktif sayfayı kopyala ve yeni bir Çalışma kitabı aç ve İsmini "yenisayfa" ver ve kopyal
Aktif sayfayı kopyalar email ile yollar
Aktif sayfayı uyarısız silmeve uyarıyı eski haline getirme
Aktif sayfayı yazdırır
Aktif sayfayı yazdırma
Aktİf sayfayi yazdirir
Aktif sütunda boş olan satıra gider
Aktif varsayılan yazıcı da yazdırır
Aktif ve aktif olmayan kitapların kapatılması
Aktif ve dolu hücreler arasına kaç boş satır eklensin
Aktif yazıcının ismini öğrenme
Aktifa sayfada otomatik filtreleme
Aktşf sayfada rectangle (dörtgen) silmek
Alarmlı saat
Alt alta kaydetme ve alfabetik sıralama
Alt alta kayıt işlemi
Alt klasörler
Alt+enter kodunda nasil bİr deĞİŞİklİk yapabİlİrİm.
Altbilgide dosya yolunu yazar
Anamenu.Xls aÇik deĞİlse dİĞer workbook aÇilmasin
Api
Applİcatİon.Ontİme
Ara bul bulunca yan hücreye yaz
Ara bul diğer sayfaya kopyala
Ara bul listele
Ara bul makrosu
Ara bul renklendir
Ara-bul komutu
Araç çubuğu ekleme
Araç çubuğu oluşturma ve silme
Araç çubuklarına resetleme
Araç çubuklarını açılır kutuya ekler, oradan seçersin
Araç çubuklarının hepsini kaldırma
Araç çubuklarının özelleştirilmesi ve geri dönmesi
Araç çubuklarının özelleştirilmesi, dosya menüsü kalır
AraÇlar menusu gİzleme
Aralarinda boŞluk olan satirlari bİr baŞka sayfaya akta
Aralarinda boŞluk olan satirlari bİr baŞka sayfaya aktar
Arama ve bulma
Aranan kelimeyi bulup o satırı temizleyen makro
Arananı bulur hücresini rapor eder
Arayıp bulma ve mesajla sıralı olarak listeleme
ArkadaŞlar textbox`a gİrdİĞİm yaziyi enter tuŞuna basarak satirbaŞi yapiyorum. Anc
Arkaplan yanıp söner
Artalan resmini değiştirmek sonra da none yapmak
Aşağı yukarı kaydırma
Aşağı, yukarı, sağ, sol
Aşağıdan yukarı doğru teker teker sildirme
AŞaĞidakİ lİnkte yer alan panzehİr İsİmlİ proseduru bİr module yerleŞtİrİp, ÇaliŞtir.
Autofill
Ay adına göre sayfa açar ve aktif sayfayı kopyalar
Ay adlarını sayfa isimleri oluşturarak yaz
Ayı otomatik tanıyan kodlar
Ayın olanın yanındaki hücreye kaydeder (A,B,C sütunundaki verilere göre)
Ayın son gününü bulur aktif hücreye yazar
Ayları sayfa olarak ekleme
Ayları sayfa olarak ekler ayın günlerini de yazar ve aktif ay ve güne gider
Ayları sayfa olarak ekler günleri ayrıntılı olarak belirtir
Ayları sayfa olarak ekler ve o güne gider
Aynı anda 2 tane form
Aynı dizine txt dosyasına a,b,c sütunundakileri kopyalar, kapatır
Aynı hücrede rakam değiştikçe b1'e yaz
Aynı olanın üzerine kayıt etme
Aynı olanlardan tekini comboboxta listeleme
Aynı olanların üzerlerine kayıt etme
Aynı sayfa ile açılma
Aynı sayfa var uyarısı
Aynı sayfa var uyarısı 2
Ayni makroyla bİrden Çok sayfaya kayit yapmak
Ayni makroyu baŞka sheetlerde de ÇaliŞtirmak
Ayni olan sayilar
Ayrıntılı adres sütun no, sütun adı, satır no, satır adı
Ayrıntılı aktif hücre adresi
Ayrıntılı hücre adresi
Ayri sayfalardakİ bellİ hÜcrelerİ toplatmak
B kolonunda 2.Satır ve 21.Satırlar arasına tıklayınca form aç
B sütununda aynı olanları siler 1 tane bırakır
B sütununda herhangi bir hücreye çift tıkla 1 artırsın
B sütununda herhangi bir hücreye çift tıkla kaç satır ekleneceğini belirt
B sütununda tıkladığın satırın numarasını a sütununa yazar
B sütunundaki isimleri a sütunu ile karşılaştırır aynı olanları a sütunundan siler
B sütunundaki mükerrerleri siler
B sütunundaki sayfalara göre kaydeder
B sütunundan a sütunana boş hücreleri aktarmak
B1 den itibaren yaz A1 e sıra numarası versin
B1 hücresine klasör yolunu yaz xls dosyalarını listelesin
B1 x ise saati durdur
B1:g13 değer varsa 0 dan büyükse sıfır yapar
B2 boş ise tarih değilse sayfa korumalı
B2 i 10 dan büyükse makro çalıştır
B2'de saat b3'de kronometre
B3 e göre alt alta 10 adet yazıp toplar
B3'e veri gir entere bas sayfa olarak eklesin
B4:h23 harici hücreleri kilitleme ve açma
B5 dolu İse a5 e 1,b6 dolu İse a6 ya 2 Şeklİnde a sÜtuna makro İle otomatİk sira no ya
B5:g22 harici hücrelere seçtirmeme
Basamak değerleri toplamı
Basılan tuşu bilir büyük, küçük, sayısal
Baskı önizlemede değişiklikleri engelleme
Baskı önizlemeyi kapatınca userforma dönme
Baskıönizlemeyi kapatınca userforma dönme 2
Baski Ön İzlemede deĞİŞİklİklerİ engelle
Baski Önİzleme komutlarinin İptalİ
BaŞ harfİne gÖre bulma
BaŞka aÇik bİr excel ÇaliŞma sayfasindakİ formu aÇma
Başka bir kitap açma
BaŞka ÇaliŞma kİtabindakİ userformu aÇmak
Başka kitaptaki bir sayfadan hücreyi silme
Başka kitaptan combobox a veri alma
BaŞka kullanicida aÇiksa uyarsin
Başlat çubuğunu gizleme
Başlat menüsünü gizle-göster
Başlatı açtırma
Başlıksız userform
Başlıksız userform
Bazı sayfaların listelenmesini engelleme
Beep sesi çıkartma
Bekletme komutu
Bekletmeli macro yapma durum çubuğunda
Bekletmeli makro çalıştırma
Bekletmeli mesaj
Bekletmeli ve aralara makro koyarak mesaj alma
Belgelerim klasörünü aç alt+f4 ile kapat
Belgelerim klasörünü açma
Belİ sayfada true-false kontrolÜ
BelİrledİĞİm verİlerİn klasÖr, dosyaadi olarak kaydi
Belirlenen bölgede açılan userform
'Belirlenen hücre aralıklarında çift tıklama ile x işareti koyar ve kaldırır
Belİrlenen hÜcre araliĞinin Çiktisini almak
Belİrlİ bİr stundakİ bİlgİlerİ sİlen bİr macro ?
Belİrlİ bİr sÜre ekranda bekleyen ve daha sonra kapan user form
Belirtilen ay bittiğinde yeni aya geçmeden önce, aşağıdaki eski aya ait sayfaları otom
Belirtilen yoldaki xls dosyalarını aktif hücreden itibaren listeler
Belli sayfalar (a , b ve c adlı sayfalar) haricindekileri silmek
Belli sayfalar haricindeki sayfaları silme
Bellİ sayfalar harİcİndekİ sayfalari
Bellİ sutunlarda ÇaliŞirken uyari
Belli tarihlerde uyarı mesajı alma
Bilgisayar ismi
Bilgisayara bip sesleriyle melodi
Bİr hÜcredekİ kelİmeyİ arattirip sayisini bulma
Bİr hÜcreye makro atamak
Bİr hÜcreyİ aktİf hale getİren komut hangİsİ
Bİr kİtaptakİ sayfalarİ baska bİr kİtaba tasİmak
Bİr sayfadakİ verİyİ dİĞer sayfalara kopyalamak
Bİr sutundakİ uyusan verİlerİ dİger sutuna kopyalama
Bir sürü dialog penceresi
Bİr sÜtundakİ deĞerlerİ sayma
Birden çok hücrede yuvarlama
Birden fazla isimlileri harcamalarıyla birlikte tek isim altında toplatma
Birden fazla sayfalara koruma koyma/kaldırma
Birden fazla textboxların özelliklerin değiştirmek
Birden fazla textboxların özelliklerin değiştirmek
Birleştir penceresi
BİrleŞtİrİlmİŞ hÜcrede makro uygulama
Birleştirilmiş hücreleri kırmızı yapar
Boş hücreler yeşil olur
BoŞ hÜcreyİ bİr Üsttekİ hÜcre İle ayni yapmak
Boş olan satırları gizle
Boş olan sütunları gizle
Boş olanları silerek doluları yukarı çekme
Boş satır silme
Boş satır silme2
Boş satırları gizlemek
Boş satırları iptal etmek
BoŞ satirlar lİstbox'ta lİstelenmesİn.
BoŞ satirlari sİlmek
Boşluk aldırma
Boşlukları aldırma
Boşlukları aldırmak (silerek)
Bu ayın günlerini sağa doğru yazma, alt hücreye gününü yazma ve haftasonlarını re
Bugün yılın kaçıncı haftası (formülle)
Bul komutu aktif sayfada
Bul komutu bütün sayfalarda
Bul makrosu
Bul makrosu
Bul mesaj ver aynısı var diye
Bul penceresi
Bul penceresinin açılması
Bul ve lİstele
Bul-değiştir-sil-kaydet makrosu
Bullets (işaret) ekleme silme
Bul-renklendir(hücre aralıklı)
Bul-sil-değiştir-kaydet kodları
Bul-sil-değiştir-kaydet kodları2
Bulunduğun dizinde wav dosyası çalmak için
Bulunulan hücrenin adresi (örnek g3)
Bulunulan klasöre tarihli yedek alır
Buton ekle-kaldır
Buton İle dİĞer sayfayi yazdirmak
Buton komutlarina uyari ekleme
Buton resimleri
Buton yardimiyla kayit olan satiri sİlme
Butona hareket verİr
Butona tıklayınca comboboxa veri aldırma
Butonala text box aÇarak verİ aktarimi
Butonala text box aÇarak verİ aktarimi.
Butonda verİ kaydirma
Butonla sayfa koruması yapma
Butonları ve numaralarını görün
Butonların değerini labele yazdırma
Butonların gizlenmesi
Butonu kullanıma açma-kapama
Butonun adını söyler
Button'lara fare ile geldiğimde renk değiştirmesi
Bütün excel dosyalarının %85 ile açılması
Bütün pencereler minimize
Büyük-küçük harf dönüştürür, dönüştürülen hücreleri belirtir. (Toggle)
C de test isimli klasör oluşturur
C dizindeki klasörleri listboxta listeler
C dizininde xls dosya sayısı
C klasöründe .Ini dosyası oluşturur, aktif ve açık excel dosya sayısını içine yazar
C kolonuna tıklayınca genişler, başka hücreye tıklayınca daralır
C sÜtunu bos olan bÜtÜn satİrlarİ sİlmek
C sütununda aralıklı olanları toplar
C sütununda aralıklı toplam alır
C sütununda büyük harf
C sütunundaki boş satırları gizler
C sütunundakileri karşılaştırıp kaç tane olduğunu bulur ve diğer sayfaya aktarır
C sütununun otomatik genişlemesi ve daralması
C1 hücre ismi ile kitap oluşturma
C1 hücresini sağdan 3 say, c2 ile birleştir farklı kaydet ve aç
C10 100 ise mesaj ver
C5 İle c15 arasindakİ boŞ hÜcrelerİ saymak ve d1 e yazdirmak İstİyorum
C5:c20 arasındaki sıra numaraları arasındaki boşlukları alır
C8:c18 arası hücrelerinde sola tıklayınca sağ fare menüsü çıksın
C8:c18 arasına tıklayınca sağ fare menüsü açılır
Calİsma sayfasİnİn yedegİnİ alma
Capslock u açtırma (ışığını yakma)
Cd açıp kapatma
Cd açma kapama
Cd açma kapama 2
Check atma A1:A10 hücreleri
Checkbox onaylı İse a1 hücresine 100 yazsın 1
Checkbox onaylı İse a1 hücresine 100 yazsın 2
Checkbox u işaretlettirme
Checkboxla sayfa yazdırma
Chr ne demektir
Class modullegeri alma
Classmodüle ile yapılan işlemi mesajla öğrenme
Classmodüle ile yapılan işlemi mesajla öğrenme2
Combobox a a verİlerİ alamiyorum..
Combobox a gİrİlen sayilari dİĞer combo boxta toplatmak
Combobox benzersiz kayıt
Combobox boş iken multipage görünür
Combobox boş iken multipage görünür-görünmez
Combobox change ÖzellİĞİnde arama yapmak
Combobox İÇerİĞİndekİ textİn seÇİlİ olmasi
Combobox ile yapılan karşılaştırma örneği
Combobox kullanımı
Combobox mükerrer iptali
Combobox otomatik açılması.Tıklamaya son
Combobox' ta bir değerin hazır seçili olarak gelmesi
Combobox taki isme göre commandbutton çalıştırma
ComboBox vlookup
Combobox1 de yılı combobox2 de ayı seçince ayın günlerini textboxlara sırala
Comboboxa aldığınız veri seçilince büyük hafre dönüşsün
Combobox'a atanacak sabit değerler
Combobox'a ayları yazar
Combobox'a aylari yazdirir
Comboboxa el ile veri girişi yasak 1
Comboboxa el ile veri girişi yasak 2
Comboboxa gÖre kayit
Comboboxa sütundan veri aldırma
Comboboxda verilerin yalnızca birer kere görünmesi
Combobox'in İÇİne yazi yazilamasin.
Comboboxlara İsİm lİstesİ oluŞturma
Comboboxlara sıra numarası yazdırma
Comboboxlardaki 2 tarih aralıklarını süz listboxa aktar
Comboboxta 2. Sırayı seçersen k2 ye
Combobox'ta çıkanlar görünmesin
Comboboxta değer seçmek
Comboboxta saat formatı
Comboboxta sayfaları listeleme ve seçilen sayfaya gitme
Comboboxta seçilen sayfaya gitme
Comboboxta seçilen veriyi ve satırı silme
Comboboxta siralama
Comboboxtakİ bİlgİlerİn eŞİt olmasi halİnde lİstboxlanmasi
Comboboxtakİ sayfayi lİstboxta gÖster
Comboboxtaki sıraya göre sayfadan seçme 'veriler A sütununda
Comboboxtaki veriyi mesaj olarak versin
Comboboxtan sayfaya aktarım
Comboboxtan textboxlara veri aktarma
Comboxta liste tanımlama
Commadbuton oluşturma makrosu
Commandbar ekleme
Commandbarların tümünün adlarını ve türkçe karşılıkları
Commandbuton a şifre ekleme
Commandbutton artık tıklatmıyor, kaçıyor
Commandbuttonun üzerine gelince renklenmesi
Commobox'a atanacak sabİt
ÇAlışma kitabı açıp a kolonundan veri alma
ÇAlışma kitabı bilgisi özellikleri
ÇAlışma kitabı her açılışta a1 1 artar
ÇAlışma kitabı kaydetme
ÇAlışma kitabına şifreli giriş
ÇAlışma kitabına şifreli giriş
ÇAlışma kitabındaki son kullanılmış hücre 1
ÇAlışma kitabındaki son kullanılmış hücre 2
ÇAlışma kitabını diskete yedekler
ÇAlışma kitabını günün tarihi ile kaydeder - varsa farklı kaydeder
ÇAlışma kitabını hardiskinizin "c:\" bölümüne istediğiniz adla farklı kaydetmek
ÇAlışma kitabını kaydet
ÇAlışma kitabını paylaştır penceresi
ÇAlışma kitabını tam ekran yapıp küçültme
ÇAlışma kitabını uyarısız kapatma
Çalışma kitabının tümünü yazdırma
Çalışma kitabının yedeğini alıp kaydeder (bulunulan dizine)--- başına yedek yazar
ÇAlışma sayfanızda belli aralıktaki hücreler seçilemez
ÇAlışma sayfanızdaki boş satırları siler
ÇAlışma sayfanızı korur, otomatik süzler çalışır
ÇAliŞma kİtabi Şİfreleme
ÇAliŞma kİtabimi ,sayfam İÇİnde yer alan bİr butonla kapamak
ÇAliŞma kİtabinda sheet1 İsİmlİ sayfa modulunun name ÖzellİĞİnİ mysh olarak deĞİŞt
ÇAliŞma kİtabinizin baŞliĞini İstedİĞİnİz Şekİlde deĞİŞtİrİn
ÇAliŞma kİtabinizin satir ve sutun gİzleme
ÇAliŞma sayfalarini ÇaliŞma kİtabi olarak kaydet
ÇAliŞma sayfalarinizin İsİmlerİ de&
ÇAliŞma sayfanizdakİ boŞ satirlari sİler
ÇAliŞma sayfanizdakİ ÇaliŞma alaninizi belİrleyen ve İptal eden macrolar
ÇAliŞma sayfanizdakİ hÜcrenİn deĞerlerİne gÖre hÜcreler renklerle dolar
ÇAliŞma sayfanizi korur ancak otomatİk sÜzler ÇaliŞir
ÇAliŞma sayfasini korumaya alir
ÇAliŞtiĞim sayfanin sadece ÇaliŞilan kisminin gÖrÜntÜlenmesİnİ nasil saĞlarim
ÇIft fonksiyonlu commandbutton
ÇIft satırlı mesaj kutusu 1
ÇIft satırlı mesaj kutusu 2
ÇIft satırlı mesaj kutusu 3
ÇIft tıklamayla aktif sayfa harici sayfaları gizleyip gösterme
ÇIft tıklamayla aktif sayfaya koruma koyma
ÇIft tıklamayla hücreye saat ve tarihli açıklama ekleme
ÇIft tıklamayla sayfa3'e git
ÇIft tıklamayla tarih ve saat ekleme
ÇIft tıklayarak açıklamaya tarih-saat eklemek
ÇIft_kayıtlari_arala
ÇıKış makrosu
ÇıKış yordamı
ÇİFt kayit engelleme (makrolu ÇÖzÜm)
ÇİFt kayit engelleme.
Çift tıklama ile listboxtan silme
ÇİFt tikladiĞimda İstedİĞİm sayfaya gİtsİn
ÇİFt tikladiĞimda İstedİĞİm sayfaya gİtsİn.
ÇöZünürlük bulma
ÇöZünürlük bulma2
ÇöZünürlük Öğrenme
D, e sütununda tek tıklamayla check atma
D2 hücresinde veri doğrulamalı açılır liste olsun açılır listenin otomatik genişlemesi
Daha Önce koruma yaptiĞim sayfanin koruma Şİfresİnİ nasil kirabİlİrİm
Dao ile 2 tarih arası
Data form açma
Dataform açma
Decimal kontrol
Değere bağlı olarak diğer sütunu değiştir.
Değerlerin aynen kopyalama
DeĞİŞen hÜcrelerİ gÖster
Değişen hücreleri gösterme
Değişik kopyalama
Değişikliklerin a kolonuna saat & tarihli kaydedilmesi
Değişken ve döngü ile 1 den 10 a kadar sayıların toplamı
Değişkene toplam atamak
Değiştir penceresi
Del tuşu 2. Sütunda çalışmasın
Demo program yapma
Ders ortalamalarını hesaplamak
Deşiklik yapılan hücredeki eski değeri görme
Detaylı karşılama, kapama
Dİger kİtaptakİ makroyu ÇaliŞtirmak
Diğer çalışma kitabındaki modülden makro çalıştırma
Diğer formdaki command butonu çalıştırmak
Diğer kitaptaki makroyu çalıştırma
Dikdörtgen silme
Disket etiketlendirme
Disket formatlama
Diskete yedekleme
Disketten .Bat dosyası açma
Diyagram çizme
Dizi yöntemi sayfa seçme
Dizindeki en son klasör ya da dosya ismini verir
Dizindeki sürücü harfini verir
Doğum gününü bulma
Dolar okutma
Dolaylı makro
Dolu alanlaı yazdırma
Dolu hücreleri seçer ve büyük harfe çevirir
Dolu hücreleri seçer ve küçük harfe çevirir
Dolu kayıt sayısı
Dolu olanları diğer sayfaya aktarır
Dolu olanları seçmek (satır değişken sütun sabit)
Dolu satır ve sütunu kesiştirerek seçme (mükemmel)
Dolu textbox sayısını mesajla bildir
Dolu, yazılı alanların seçilmesi ve enson dolu hücrenin bulunması
Dosya açık mı değil mi bakar değilse açar
Dosya açıldığında tanımlama bilgisi
Dosya açıldığında tanimlama bilgisi
Dosya açıp içerisine veri girme
Dosya adı, yolu ve çalışma sayfası adını fornsiyonlarla yazdır
Dosya al
Dosya arama
Dosya arama (var mı, yok mu)
Dosya arama 2
Dosya arayıp bulsun varsa onaylasın
Dosya cd rom ismin kontrol ediyor tutmuyorsa kapatıyor
Dosya dizinde mi bakar, varsa açar yoksa mesaj verir
Dosya düzen çubuğuna menü ekleme silme
Dosya düzen menülerinin iptali ve yeni menü
Dosya düzen menüsüne menü ekleme
Dosya düzen menüsünü gizleme ve gösterme
Dosya düzen menüsünü silme
Dosya isimleri
Dosya isimlerin excele atamak
Dosya kaç kere açılmış
Dosya klasör ekle
Dosya klasör ekle
Dosya listeleme
Dosya menüsü hariç diğer araç çubuklarının gizlenmesi
Dosya sayısı
Dosya silmek
Dosya sistemini gösterme
Dosya sistemini öğrenme
Dosya taşıma
Dosya uzantısını verir
Dosya yedekleme
Dosya yedekleme mesaj kutusu ile ismini yaz
Dosya yolu ve uzantısını belirle ayrıntılı listelesin
Dosya yoluna gÖre excelden excele yÜkleme
Dosya yolunda excel dosyalarını bulur ve açar
Dosya yolunu göster ayrıntılı olarak listelesin dosyaların kapladıkları alanları, dosya
Dosya, düzen menüsüne menü ekleme
Dosya, görünüm, düzen menüsünü gizle göster
Dosya, menü çubuğunu gizle
Dosyada kİŞİ resmİ olmadiĞinda formdakİ İmage'nİn boŞ olmasi
Dosyamızı silme
Dosyanın açık olup olmadığına bakar açık değilse açar
Dosyanın açılma tarih ve saatini txt'ye işler (alt alta)
Dosyanın tarihini yazın kaç gün geçtiğin hesaplasın
Dosyanın yolunu ve ismini hücreye yazdırır
Dosyanızı İstediğiniz klasöre yedekleyin
Dosyanin bayt cİnsİnden bÜyÜklÜĞÜ nedİr?
Dosyayı farklı şekillerde kaydetme
Dosyayı kapama
Dosyayı kim açtı
Dosyayı kim ne zaman hangi tarihte açtı txt
Dosyayı sizden başkası kaydetmesin
Dosyayı tarihli olarak kayıt etme
Dosyayi kİm aÇti
Döngü
Döngü ile yanyana yazdırma
Döngülü formül girme
Dtpicker le güncel tarih
Dtpicker tarih değerini hücreye alma
Dtpickerin değerinin database den gelen bir değer olmasını istiyorsak
Durum çubuğunda bulunduğun adres
Durum çubuğunda bulunduğun adres2
Durum çubuğunda sayı mesaj
Durum çubuğunda toplam alma (fare ile seçileni toplar)
Düzen seçenekleri penceresi
E1:e15 'i toplayıp a1'e yazar
E10 hücresine yazı yaz sağdan sola kayarak yazsın
E2 hücresinde formülü aşağı doğru çekerek çoğaltır
Eğer "p" sütununda "evet" yazanlar listede yer alsın
Eğer a1 1 ise sayfa ekle
Eğer a1 hücresi 1 ise mesaj kutusu çalışsın ve excelpazarı yazsın
Eğer a1 hücresi sıfırdan büyükse macro çalışsın
Eğer a1 hücresinde işlem yapılırsa a2 hücresine değiştirilme tarihi ve saatini yazar
Eğer a1 hücresinin değeri a3 hücresindeki değerden düşükse macro çalışsın
Eğer aktif hücre değeri 1 den büyük ise aktif hücrenin altına boş satır ekler
Eğer aktif hücre numerik ise ve 500 den büyükse kalın yapar
Eğer aktif hücrede değer varsa onu a17'ye yazar
Eğer formülü 7 tane ve daha fazlası
Eğer sayfa boş ise alt bilgiye tarihi ekler değilse ekleyer ve yazdırır
Eğer sütunda veriler varsa yukarıdan aşağıya doğru seçer
Eğer yanyana 2 hücrede değer varsa sağdan sola doğru seçer
Eğerle hücreye formül girme ve koda çevirme
Ehatalıysa formülünün izahı
Eklantilerin tamamının kontrolü
Ekle (hücre) penceresi
Eklentiler penceresi
Eklentileri mesajla öğrenin
Eklentinin varlığını kontrol etme
Ekran çözünürlüğü ayarlama
Ekran çözünürlüğünü ayarlatma
Ekran çözünürlüğünü ayarlattırmak
Ekran çözünürlüğünü öğrenme
Ekran çözünürlüğünün 800x600 ayarlı olarak sayfanın gösterilmesi
Ekran çözünürlüğünüzü öğrenin
Ekrandaki araç çubuklarını kaldırır ve getirir
Email ayıklama
Email linki ekleme
Email linki verme ve açma
En alttakİ boŞ hÜcre
En son aktf hücrenin bulunduğu sütunu söyler
En son aktif hücreye gider
En son boşluklu kelimeyi bulur =pir(a3)
En son dolu hücrenin bulunduğu kolon numarasını verir
En son girilen verinin satır numarasını söyler (a sütununda)
En son hÜc.Yukaridakİlerİnİ sİler
En son kaydedİlen hÜcre
En son kayıt tarihini açılışta öğren
En son kayıtlı hücreye gider a sütununda
Enter tuşunun geri gelsin
Enter tuşunun geri gelsin 2
Enter tuşunun iptali
Entere basilinca İstedİĞİmİz bİr hÜcrenİn aktİf olmasi
Esc tuŞuyla userformunuzu
Eski formülleri geri getirme (förmül yenileme)
EŞ zamanli olmayan verİlerİ otomatİk sİlen kod
Etiket aralıkları ekleme penceresi
Etkin işlem sayfasının genişliğini belirle
Etkinleştir penceresi
Etopla formÜlÜne karŞilik gelen makro
Evet ve hayır doğrultusunda makro çalıştırma
Excel ' de kopyalama makrosu nasil yazilir?
Excel (xls) dosyasını silme
Excel belgelerİ salt okunur aÇiliyor
Excel crack
Excel çizim yapar mi?
Excel de baŞka verİlerİ sirali verİler arasina otomatİk ekle
Excel de f2 enter İŞlevİ
Excel de hücre içerisinde kayan yazi olusturmak
Excel de standart araÇ Çubuklarini kaldirmak
Excel dosyamin kisayolunu masaÜstÜnde oluŞturmak İÇİn api
Excel dosyası bul gizle
Excel dosyası kaydetme
Excel dosyasının cd’de çalışması
Excel dosyasının klasör içerisine taşınması
Excel dosyasi belİrlİ bİr tarİhten sonra aÇilmasin.
Excel dosyasinin korunmasi
Excel fontları
Excel fontları 2
Excel multiuser ( Çoklu kullanacı ) açmak
Excel operatÖrlerİ hk
Excel sayfalarını menü olarak ekleme
Excel sayfasının isteğe göre kısıtlanması
Excel sayfasinda tÜm sayfalari bİr dÜĞme İle yazdirmak
Excel sayfasinda yazdiklarimi text'e Çevİrmek
Excel userformu'nu exe yapmak
Excel uygulamasındaki eklentileri a1 den itibaren listeler
Excel versiyon bulucu
Excel versiyonunu öğrenme
Excel yardımıcısına mesaj yazdırma
Excel'de "veya"
Excelde bİrleŞtİrİlmİŞ hÜcrelerİ makro İle ayirma
Excelde büyük küçük harf
Excelde herhangİ bİr hÜcrenİn İÇİndeyken saĞ klİk yaptiĞimda "yazdir" komutu Çiksi
Excelde kendi eklenti ve fonksiyonlarınızı oluşturun
Excelde sağ klik menüsünü gizle-göster
Excelde satir sİlme
Excelde sürekli flash örneği
Excelden word belgesi açmak
Excele şifreli giriş 3 hakkınız var.
Excelİ aÇiŞta İstenen sayfa gelİr
Exceli gizleme
Exceli gizleyerek mesaj verir
Exceli kapatma işlemi
Excelİ tamamen kapatma
Excelİ tamamen kapatmak
Excelin tüm menü buton resimler
Excelinizin versiyonunu öğrenin
Excel-outlook
Explorer açma
Explorer'i açma tam ekran
F9 tuŞuna bastiĞimda ÇaliŞmasini yanİ kaydetmesİnİ İstİyorum
F9 tuşuna makro atama
F9 tuşuna makrro atama
Faİz hesabi
Fare ile textbox içinin renklenmesi
Fare imleci kum saati
Fare kursörünü gizlemek 1
Fare kursörünü gizlemek 2
Fare kursörünü hareket ettirme
Farklı kaydederken dosya ismini otomatik yazsın
Farklı kaydederken dosya ismini otomatik yazsın 2
Farklı kaydet butonu ekleme ve renk verme
Farklı kaydet ekranı gelmeden ve kaydetmeden çıkmak
Farklı kaydet ve sağ klik tuşunu disable yapma
Farklı kaydet ve sağ klik tuşunu disable yapma
Farklı kaydeti engelle
Farklı kaydetin devamlı gelmesini istiyorsanız
Farkli kaydedİ engelle
Farkli uyari pencerelerİ
Fcommandbutton hareket etsİn.Ormda
Filigran yazdırma (sayfa artalanına silik yazı)
Filtreyi (süzmeyi) iptal etme
Fİnd menÜsÜ oluŞturma
Fonksiyon çalıştırma kodu
Fonksiyon çalıştırma kodu2
Fonksiyon tanımlama not puanlama
Fonksiyonla kitabın açık olup olmadığını öğrenme
Font isimleri a sütununda
Fontları sayfaya yazdırma
Form aÇar
Form açma
Form ÇaĞirir
Form dolarsa İkİncİ forma geÇİp Çiktisini alsin
Form kutusundan lİs.Kutusuna kom.Verme
Form kutusundan liste kutusuna komut verme
Form penceresİ
Forma otomatİk resİm getİrme
Formatli olarak gİrdİĞİm sayinin sifirlarini gÖremİyorum
Formlarda x Çikmaya İzİn vermez
Formlardan bİrİnİ kapar dİĞerİnİ aÇar
Formlardan birini kapayıp, diğerini açma
Formu kapama
Formu kapar
Formu otomatİk kapar
Formun sÜrÜklenmesİnİ engeller
Formunuzun baŞliĞini kodlarla İstedİĞİnİzİ Şekİlde ayarlayabİlİrsİnİz;
Formül Çevirici
Formül çoğaltma
Formül çoğaltma
Formül çoğaltma
Formül çoğaltma dolu satıra göre
Formül çoğaltma dolu satıra göre (formülle)
Formül çubuğunu kaldırma
Formül sonuna karakter ilave etme
Formülden değere, değerden formüle dönüşüm
Formülle baş harfi büyük küçük öğrenme
Formülleri değere dönüştürme
Formülleri sayıya çevirme
FormÜllerİ sayiya Çevİrİr
Formülleri yeni sayfada listeler
Formüllerin gizlenmesi
Formüllerin makro dili (ingilizcesi)
Formüllü hücre renkli
Formüllü hücre silmeyi engelleme
Formüllü hücreleri korumaya alır
Formüllü hücreleri silmeyi engelleme
Formüllü hücreyi makroyla geri getirme
Formüllü hücreyi seçmeden başka sayfaya değer olarak atamak
Formüllü ve tarihli kopyalama
Formülü değere dönüştürme
Framede adres bİlgİsİ
Geçici dosya ismi alma
Geçici dosyaya kaydetme
Geçici klasörler
Geçiş seçenekleri penceresi
Genel seçenekleri penceresi
Gerİ ÇaliŞan tİmer
Gif, jpg vs… resim ekleme
Gif, jpg vs… resmi hücreler arasına yerleştirme
Gİrİlen verİ rakam diŞinda bİr Şey olursa kullaniciyi uyararak tekrar rakam İstesİn
Gİrİlen verİnİn aynisi varsa kaydetmesİn
Git penceresi
Gitmek istenilen hücreyi seçer
Gizli açıklamayı göster (hücre seç)
Gizli safaları gösterme
Gizli sayfada makro calisirmi
Gizli sayfaları siler
Gizli sayfanın gösterimi için şifre sorulması
Gizli sayfayı yazdır
Gİzlİ tÜm tÜm sayfalari gÖster
Görsel ve güzel bir userform
Görünüm seçenekleri penceresi
Gruplandır penceresi
Güncelleştirme el ile
Güncelleştirme otomatik
Haftanın gününü bulma
Haftanin kaÇinci gÜnÜ?
Hangi butona basıldığını bildirir (commandbutton)
Hangi hücreye gitmek istiyorsan gider scroll yaparak
Hangi hücreye yazarsan yaz a1 kaydetsin
Hangi sayfalar korumalı öğrenin
Hangi tuşa basarsan o makro çalışır
Hangi tuşa basıldığını bulan api
Hangİ tuŞa basildiĞini bİlebİlmek
Hard disk formatlama
Harddisk hakkında ayrıntılı rapor
Harddisk seri numarası alma a1 hücresine
Harddiske format atma
Harddiskin boş alanını vs.. ÖğRenme
Hareket ettirilemeyen userform
Hareketsiz inputbox
Hareketsiz userform
Hareketsiz userform başlığı
Harf değişimi
Harf sayısı 100'den fazla İse alttaki hücreye yaz 1
Harf sayısı 100'den fazla İse alttaki hücreye yaz 2
Hata mesajını yoksaymak
Hata mesajını yoksaymak
Hataya mesaj yazma 1
Hataya mesaj yazma 2
Hedef ara penceresi
Hedef hücreye gitme
Hepsi bir arada toplama çarpma bölme
Her 3 saniyede alt alta formül girme
Her 30 sn de bir mesaj verme (makro)
Her 5 dk a1:a3000 arasında veri varsa bir uyarı vermeden silme
Her 5 satırdan sonraki satırın yüksekliği 5
Her 5 sn de bir makro çalıştırma (mesaj)
Her 50 satırda bir toplam alır
Her hangi bir sayfaya hızlı bilgi girşi için
Her saniye arayla mesaj verme
Her saniyede bip ile birlite mesaj alma
Her sayfayı ayrı ayrı kitap olarak c'ye kaydetme
Her veri girişten sonra mesaj alma
Herhangİ bİr form ÜzerÜndekİ metİn kutusuna gİrİlecek karakter sayisini nasil sinirlan
Herhangi bir hücreye tıklayınca makro çalışsın
Herhangi bir hücreye tıklayınca o hücreden sağa doğru kayarak o aydaki günlerin numa
Herhangi bir hücreye tıklayınca o hücreden sağa doğru kayarak o aydaki günlerin n
Herhangi bir tarihten sonraki ilk pazartesiyi bulma
Hesap kodlari
Hesap makİnasi ÇaĞirir
Hesap makinesi açma
Hesap makinesi çağırma
Hesap makinesini açma kapama
Hesaplama seçenekleri penceresi
Hesaplama seçenekleri penceresi
Hizalama penceresi
Hoparlörden beep sesi çıkarmak
Htm uzantılı dosyayı açma
Hucre ye geldİgİnde makro calİssİn
Hücre a1 deki yazı boyutu ve karekterini sadece yazıcıya gönderirken arial-italik ve
Hücre alanı kesme, seçili alanı kesme
Hücre alanı seçme
Hücre biçimi textboxta da aynı biçimde
HÜcre bİÇİmİnİ ayarlamak
Hücre biçimlendir penceresi
Hücre biçimlendir/yazı tipleri penceresi
Hücre boş iken makro 1 dolu iken makro2
Hücre değer değişince makro çalışsın
HÜcre deĞerİne gÖre renk deĞİŞtİrİr
HÜcre deĞerİnİ aÇiklamaya ekleme
Hücre değerleri belli tabloda otomatik renklendirmeli seçme
HÜcre deĞİŞtİĞİnde yaninda kİ hÜcreye tarİh yazsin
Hücre değiştirilemez uyarısı, diğer hücreye yönlendirme
HÜcre dolu İse boŞ hÜcreye aktar
Hücre genişliğince kenarlık çizme
Hücre genişliğince kenarlık çizme2
HÜcre İÇerİĞİne ekleme yap karŞilaŞtir.
Hücre içeriğinin silinmesi
Hücre içerisinde kayan yazı
HÜcre İÇerİsİndekİ boŞluklari sİlmek
Hücre içerisine kelime ekleme
Hücre isimlerini öğrenme
Hücre ismi ile tarihli ve tarihsiz kitap kaydetme
Hücre kopyalama
Hücre kopyalama
Hücre koruma penceresi
Hücre renkleri ile ilgili kodlar
HÜcre renklerİ İle İlgİlİ kodlar
Hücre seçilince şifreli giriş
Hücre seçilince şifreli giriş
Hücre seçme,tanımlama
Hücre sürüklemesini engelle, aktif yap
HÜcre sÜrÜklenmesİnİ engelle & aktİf yap
Hücre tanımlayarak yazıcıdan çıktı alma
HÜcre tanimlamalarini sayfaya gÖre ayarlama
HÜcre ve sÜtun seÇİmlerİ
Hücre veya hücreleri kopyalama
Hücre, sütun seçimleri
Hücre_bicimlendir_saydirma (dalga geçme)
Hücrede 0 (sıfır) varsa durur yoksa atlar
Hücrede ad soyad'ları 2 textbox'ta göstermek
Hücrede ay öğrenme (fonksiyon tanımlayarak)
Hücrede bir sonraki ayın gün sayısı kadar gün ilave etme
Hücrede enter a basınca makro çalıştırma
Hücrede entere basılıncs direk sayfaya gitme
Hücrede ilk harfler büyük 1
Hücrede ilk harfler büyük 2
Hücrede İsim küçük harfli İse o hücreyi silme
Hücrede İsim küçük harfli İse o satırı silme
Hücrede karakter say
Hücrede kelimelerin ilk harfi büyük
Hücrede saat
Hücrede saat (hücreye ad tanımlayarak)
Hücrede saat saydırma
Hücrede saat saydırma
Hücrede saat saydırma-durdurma
Hücrede takvim (calendar) açma
Hücrede yazılı sayfa var mı yok mu bulur
Hücredeki açıklamayı textbox'a alma
Hücredeki ad soyadı ayırmak
Hücredeki adrese ping atma
Hücredeki değere göre makro çalıştırma
Hücredeki değere göre mesaj veya makro
Hücredeki değeri 1 er artırarak yazdırma
Hücredeki değeri birer artırarak yazdırma
Hücredeki değerlerin yazı tipi, fontu kalınlık
HÜcredekİ formÜlÜ deĞİŞen satir sayisi kadar kopyala
Hücredeki metne çevir olayını userformdan yapmak
HÜcredekİ otomatİk tarİh formati
HÜcredekİ rakamlari harf karŞiliklarina Çevİrme
Hücredeki renge göre filtreleme
Hücredeki sayı kadar çıktı almak
Hücredeki sayı kadar yazıcıdan çıktı alma
Hücredeki sayının son rakamını 0 (sıfır) yapar
Hücredeki sayıyı alt veya üst karaktere ve normale çevirir. H2o, co2
Hücredeki sayıyı bir üst binliğe tamamlar
Hücredeki sayıyı bulma
Hücredeki sayıyı kendi binliğine 0 sıfırlar
Hücredeki veri kadar sütunda genişlik (otomatik)
Hücredeki veri mesaj kutusunda 1
Hücredeki veri mesaj kutusunda 2
Hücredeki verinin diğer sayfada altbilgi olarak gözükmesi
Hücredeki veriyi txtboxta göstermek 1
Hücredeki veriyi txtboxta göstermek 2
Hücredeki yazı tersinden
HÜcredekİ yazi karakterİnİn rengİne gÖre fİltreleme
Hücredekine göre hücre temizleme
Hücreler arasına tıklayınca userform çıkar
Hücreler arasını seçer ve yakınlaştırır
Hücreler boş geçilemez b1:b8
HÜcreler renklİ yanip sÖner
Hücrelerde font, renk yazı tipi değiştirme
Hücrelerde yuvarlama formülü 1
Hücrelerde yuvarlama formülü 2
Hücrelerde yuvarlama formülü 3
Hücrelerdeki formüllerin değere dönüşmesi 1
Hücrelerdeki formüllerin değere dönüşmesi 2
Hücrelerdeki verileri birleştirme
Hücrelerden biri veya birkaçı boş olunca yazdırmayı iptal etme
Hücrelerden hangisi dolu ise(a2:e2) onu diğer hücreye yaz (a5)
Hücrelere 100 yazdırma diğer sütuna 2 satır ekleyerek atama
HÜcrelere verİ gİrİŞİ yapildiktan sonra
HÜcrelerİ boŞ geÇmemek , boŞ geÇecek olursam uyari versİn
Hücreleri doldurmadan yazdırmaz
Hücreleri İmage nesnesi olarak kopyalama
Hücreleri resim olarak kopyalamak
Hücreleri seç 2 çeşit madde imi koysun silsin (sırayla 3 tıklama)
Hücrelerin açıklamasını otomatik daralt, rengini değiştir
HÜcrelerİn baŞindakİ ( ' ) tek tirnak sembolÜnÜ makro İle nasil kaldirabİlİrİm.
Hücrenin adını siler yani tanımlanan adını siler
Hücrenin ayrıntılı bilgisi (adresi)
Hücrenin bulunduğu satır ve sütunu sıra ile mesajla bildirme
Hücrenin çıktısını alma
Hücrenin değerlerine göre hücreler renklerle dolar
Hücrenin içeriği değişince mesaj verir
Hücrenin içi kırmızı ,yazılar ise beyaz renkte olsun.Ve italık ve bold olsun
Hücrenin zemin renginin sayısal kodu
Hücresi belli aktif kolonu seçer
Hücresi belli aktif satırı seçer
Hücresi belli aktif satırı seçer
Hücreye açıklama ekle (mesaj kutusu ile)
Hücreye ad ver, o hücreye yazı yaz, sayfa ismi o olsun
Hücreye check atma
Hücreye değer girince picture görünmesi
Hücreye değer yazınca başka hücreye gitme
Hücreye değer yazınca toplama, başka hücreye yazma
Hücreye formül atama
Hücreye formül ekleme
Hücreye formül girme, kitaba link
Hücreye formül girmek
HÜcreye formÜl yazdirirken referans ÇeŞİtlerİ
Hücreye gelindiğinde makro çalıştır
HÜcreye gİrdİĞİm sayiya gÖre Şeklİn enİnİn bÜyÜyÜp kÜÇÜlmesİnİ İstİyorum.
Hücreye girilen sayının açıklamada (123,00) şeklinde yazılması
Hücreye git
Hücreye gitme
Hücreye inputbox ile veri girme
Hücreye o anki saati , zamanı eklemek
Hücreye sayı veya değer girme
Hücreye silinecek veri aralığını yaz silsin (sayfa1de a2,b2ye yaz,sayfa1 ve sayfa2den
HÜcreye Şİfre vermek
Hücreye tıklayınca otomatik olarak sütunun istenilen genişlikte açılması
Hücreye tıklayınca otomatik olarak sütunun istenilen genişlikte açılması 2
Hücreye tıklayınca userform açılsın
Hücreye veri girince uyarı alma
Hücreye yazı yaz ve fontunu kalın yap
Hücreye yazı yazmak
Hücreyi basamak şeklinde renklendirme
Hücreyi göster virgülden sonra rakam eklesin
Hücreyi metin biçiminde biçimlendirmek:
HÜcreyİ para bİrİmİ yapmak
Hüreler farklı olursa uyarı mesajı
I1:i13 hücrelerinde yazılı yazılı olan veriler 0'a eşit değilse 0 yapar çevirir
If mantığı
If, else
Inputbox ile sayfa ekleme ve adlandırma
Inputbox'ta cancel ile textbox'a değer atamak
Inputbox'ta cancel seÇİlİrse
Ip numarasını bulan makro
İç Içe 12 tane eğer
İç Içe 17 tane if kullanmak
İç Içe eğer komutu
İF lerden sadece bİrİ ÇaliŞiyor?
İKİ hÜcrenİn formÜl sonucu farkli olduĞu zaman msgbox u
İKi saat arasındaki farkı dakika formatında yazmak
İKi tarih arasını listele
İKi tarih arasını listele
İKİ tarİh arasindakİ verİlerİn lİstbox1 'e aktarilmasi
İKİ tarİh arasini sÜz ve
İLgİlİ sayfaya gİtme
İLk aÇiliŞta optİonbutton1 İŞaretlİ olsun
İLk boş hücreyi seçer
İLk harf büyük diğerleri küçük (yazım düzeni)
İLk harfler büyük yazım düzeni
İLk satıra yaztığım tarihe bakarak tek bir hareket ile o aya ait çalışma günlerini a
İMlecİn boŞ hÜcreyİ atlamasi
İMlecİn ÜÇ hÜcre atlamasi
İMleç textbox4'te iken textbox6'ya veya textbox7'ye tıklansa bile imleç textbox5'e gi
İNdis hücredekinin vba kodu
İNdİs İŞlevİnİn vba kodu olarak karŞiliĞi
İNdis vba kodu
İNdİsİn vba makrosu hakkinda
İNput ile sayfa kopyalama
İNputbox çift satırlı örnek
İNputbox İÇİne yazilan karakterler "*****" Şeklİnde Çikabİlİr mİ?
İNputbox ile aktif hücreye açıklama ekleme
İNputbox ile filtreleme ve filtreleneni silme
İNputbox la doğru rakamı girmeye zorlama
İNputbox la mesaj alma
İNputbox yılı yaz, ayları sayfa olarak eklesin
İNputboxa göre boş satırları seçmek
İNputboxa göre çıktı sayısı
İNputboxa göre çıktı sayısı2
İNputboxla a1 e veri girme
İNputbox'la bulma
İnputboxla sayfa bulma
İnputboxla sayfaya gitme
İNputboxlarda yazılanları çarpar
İNputboxta cancel'e değer aatmak
İNputboxta soru cevap
İNputboxta tarih formatı
İNputboxta yazılan hücreye gider
İNternet bağlantısı olduğunda veya olmadığında raporunu word'e yazar
İNternet sayfası açma istenilen adres
İNternete dial up la bağlanmak için
İNternetten dosya indirmek
İP numarasi gÖsterecek makro
İSmi belirle aktif sayfayı kitap halinde kaydedip kapatsın
İStedİĞİm mÜkerrer olanlari sİlmesİ(satir sİlme olabİlİr)
İStediğiniz sayfa hariç sayfadaki verileri temizler
İStediğiniz sayfaya gider
İStedİĞİnİz sayfaya gİder
İStediğiniz yerde istediğiniz uyarıyı verdirin
İStedİĞİnİz yerde İstedİĞİnİz uyariyi verdİrİn...
İStenen araliĞi temİzler
İStenen hÜcreye verİ gİrme
İStenilen hücreleri dikey yazdırır
İStenilen hücreye gitme
İStenilen makronun kodlarının görülmesi
İStenilen saat ve dakikada makro çalıştırma
İStenilen saat ve dakikada makro çalıştırma 2
İStenilen saatte çıktı alma
İStenilen saatte makro çalıştırma
İStenilen sayfa isminden başkasını eklemez
İStenilen sayfadaki istenilen hücreye gitme
İstenilen sayfalar haricinde gizleme
İStenİlen sayfayi aÇabİlmek
İStenilen siteyi açma
İStenİlen sutunu gİzlemek
İStenİlen sÜrece ekranda kalan userform
İStenilen sürece ekranda kalan userform
İStenilen sütunu gizleme
İStenilen sütunu gösterme
İStenilen yazıcıyı aktif yapmak için
İş Günlerini hesaplayan fonksiyon
İŞGÜnlerİne aİt sheet aÇmak.
İŞGÜnlerİne aİt yenİ sayfa oluŞturma
İşLemci bilgilerini hücreye aktarma
İşLemci hızı
İşLemciyi uyutma
İşLetim sistemini öğrenme
İşLev ekle penceresi
Jpeg resmi ekleme ve silme
Kaç satır seçili olduğunu bulur
Kaç sayfa var hesaplasın
Kaçıncı hafta olduğunu bulan fonksiyon
Kaçıncı hafta olduğunu bulan fonksiyon
Kaçıncı hafta olduğunu bulan fonksiyon kodları
Kaçıncı hafta, hangi gün sorusunun cevabı
Kaçıncı satır kaçıncı sütun
Kaçıncı satır kaçıncı sütuna ne girecen
Kalın olanları topla
Kapalı dosyalardan verileri toplayarak almak
Kapalı kitap ontime
Kapalı kitap ontime
Kapalı olan sayfanın boş olan bir alttaki satırına kayıt
Kapali durumdakİ c:\test.Xls dosyasi aÇilacak ve İÇİne c:\userform1.Frm İlave edİldİk
Kapanış-çıkış makrosu
KapaniŞ mesaji
Karma örnekler
Karma Örnekler
Karşılama (açılış makrosu)
Karşılaştırma; sayfa1 sayfa2 a,b,c sütunları
Kaydederek çıkış
Kaydederken a1 e tarih ve saatini yazar
Kaydederken mesaj verdirme
Kaydedince a1 e tarihli kaydeder sol alt bilgi olarak ta ekler
Kaydet,temİzle ve tamamen kapat
Kaydetmeden çıkış
Kaydetmeden çıkış
Kaydetmeden kapatma
Kaydetmeden önce şifre isteme
Kayit engelenebİlİr mİ?
Kdv hesaplatma
Kdv hesaplatma 2
Kelimeler arasında 1 space boşluğu bırakır
Kenarlık penceresi
Kendi kendine kapanan kitap 10 sn de
Kendi kendine kapanan kitap 10 sn de mÜkemmel
Kes kopyalayı iptal etmek & aç
Kes kopyalayi İptal et & aÇ
Kesme, kopyala, yapıştır etkin
Kesme, kopyala, yapıştır iptal
Kırmızı renkli sayıyı seç g12 ye yazsın
Kısayol tuşları listesi
Kitabı açma-kopyalama-kapama
Kitabı belirlenen isimle kayıt etme
Kitabı diskete yedekleme
Kitabı isimle kaydetme
Kitabı kapat, kaydet
Kitabı kapatırken a1 hücresine tarihi yaz
Kitabı kaydederken mesaj alma
Kitabı kaydet pencereyi kapat, a1'i seç:
Kitabı kilitleme. Salt okunur olarak açma. Makroları gizler
Kitabı otomatik kaydedip kapatma
Kitabı yedekleme
Kitabın adını öğrenme
Kitabın başlığını değiştirme
Kitabın boyutunu hesaplasın
Kitabın bulunduğu yolu ve ismini belirtir
Kitabın ilk kaydediliş tarihini yazar
Kitabın kopyasını userform,modul,class silerek oluşturur
Kitabınızı diskete yedekler
Kitabınızın kapanması bir hücrenin değerine bağlı ise
Kİtabi kapat kİtabi kaydet
Kİtabi kaydet pencereyİ kapat a1'İ seÇ
Kİtabi otomatİk kaydetme
Kitap açılırken bu gün tarihli yedek alır
Kitap açma (1 den fazla dosya)
Kitap açma (tek dosya)
Kitap adını a1 e aldırma
Kitap başlığı isimlendirme (caption)
Kitap her açılışta a1 1 artar
Kitap ismi ile klasör oluşturur her sayfayı ayrı ayrı olarak kaydet
Kitap kaç kere açılmış
Kitap kapanırken a1 e tarih ekleme
Kitap kaydet ismini sen belirle - mesajla bildirir
Kitap kaydetme ismini belirli
Kitap penceresini 2 boyut küçültme
Kitap sayfasını simge durumunda küçültme
Kitap toplam kaç kere,hangi tarih ve hangi saatte açıldı
Kitap yedekleme
Kitapta istenilen sayfa adını önizlemek için
Kitapta ne kadar formül varsa ayrıntılı olarak belirtir (yeni sayfada)
Kitapta ne kadar refers varsa ayrıntılı olarak belirtir (yeni sayfada)
Kitapta yazdırmayı iptal etme
Kitaptaki tüm resimleri silme
Klasör açma
Klasör alma
Klasör arama
Klasör bilgisi
Klasör ismi değiştirme
Klasör oluşturma
Klasör oluşturuyormuşuz gibi bir dizin oluşturur
Klasör silme
Klasör ve dosya makrolarındaki yolları kendine göre düzenle
KlasÖrdekİ dosyalari comboboxta gÖstermek
Klasördeki tüm xls dosyalarını sxs klasörüne kopyala
Klasördeki veya dizindeki xls dosyasının boyutunu öğrenme
KlasÖrden ÇaliŞma sayfasi aÇma kÖprÜ kurma
Klasöre gözat penceresini çağırır
Klasöre gözat xls listele
KlasÖrÜn İÇİnde kaÇ adet jpg uzantili dosya var ?
Klavye ok yönleri ile mesaj alma
Kod yazarak showmodal durumunu ayarlamak.
Kod yazarken
Koda formÜl adres yolunu hÜcreden vermek
Kodlara aÇiklama ekleme
Kodları kopyalama
Kodlarin hata vermesİnİ engeller
Kolon numarasını ver kolonu bulsun
Kolon sayısını yaz kolon adını harf olarak versin (ktf)
Komutları özelleştir penceresi
Kopyala yapiŞtir
Kopyala yapiŞtir İŞlemlerİ
Kopyalama ve yapıştırma
Kopyala-yapıştır
Kopyala-yapıştır'ı engelleme
Korumali hÜcrelere siralama yapmak?
Korumali sayfada makro ÇaliŞir mi?
Koşul sağlanıyorsa çıkarma işlemi yapsın
KoŞula gÖre ÇaliŞan makro
Koşullu biçimlendirme penceresi
Kök dosya göster
Köprü ekle penceresi
Köprüleri silmek için
Kritere uyanları c sütununda (c2den itibaren) bulup tüm satırları ile birlikte siler(kri
Kullanıcı adı ve parola eklemek
Kullanıcı adı ve pc adını öğrenme
Kullanıcı adını bulan fonksiyon
Kullanıcı kitabının kapatılması
Kullanıcı tanımlı not fonksiyonu
Kullanici tanimli foksİyon
Kullanici tanimli(sayfa sayisi)
Kullanilan xl turkce, ingilizce ..... Veya ne ?
KuruŞlari hesaplama
Küsuratlı bir parasal tutarın ytl ve ykr kısımlarını ayrı hücrelere yazdırma
Label de dikey yazı
Label de tarih ve saat yazdırma
Label lerde ortalama alma
Label türetme
Label1 ve label2 de rakamlar var.Ben label1 ve label2 dekİ rakamlarin ortalamasini l
Label'a istenilen sayfa ve hücreden değer almak
Labelde tarih formatı
Label'de tarih ve saat
Labele tiklayinca açiklama çikar
Labeller de toplama, ortalama alma
Link koleksiyon
Lisans programı
Lİstbox & textbox da verİ gÖrme
Listbox A dakileri listeler a ya göre b dekini textboxta listele command butonla sil
Listbox a dan veri alır, tıklayınca textbox b dekini yazar
Listbox a for döngüsü ile additem ekleme
Listbox a sadece dolu hücreleri alma
Listbox a sayfa isimlerini alma
Listbox daki herhangi bir kolon değerlerinin toplamını textboxta gösterme
Lİstbox format sorunu
Listbox hk
Listbox index numarasını öğrenme
Listbox indexlerinin aynı anda seçilmesi
Listbox özellikleri
Lİstbox tan seÇİlen hÜcreyİ sİlmek.
Lİstbox ve combobox a verİ gİrmek
Lİstbox ve combobox'takİ boŞluklar
Lİstbox veya combobox baŞlik formati
Lİstbox1 İn İÇİndekİ bÜtÜn verİlerİ excel sayfasina yazdirma
Lİstbox1.Rowsource sorunu
Listbox1'de değişken
Listboxa alınan adreslerin başına ' karakteri koy
Listboxa çift tıklayarak satırdan ve listboxtan silme
Listboxa çift tıklayınca textboxa listbox kolonlarındaki değerleri alma
Listboxa hücreden dolu olanları alma
Listboxa sayfa ile birlikte hücre tam adresini alma
Listboxa sütundan veri aldırma
Listboxa veri aldırma
Lİstbox'in 2ncİ kolonunu nasil yazdirabİlİrİm?
Listboxla dosya açma kapama silme
Listboxla süzme işlemi
Listboxta a, al şeklinde sıralama, textboxta sıralayarak
Listboxta dolu hürecelwein listelenmesi
Listboxta ilk sayfanın görünmemesi
Listboxta kitaptaki sayfaların listelenmesi
Listboxta listeleme
Listboxta sayfadan veri alma
Listboxta seçilen satırın silinmesi
Listboxta sütun ve hücrelerin gösterilmesi
Listboxta tıklama ile textboxlara aldırma
Listboxta toplam alma
Listboxtaki addıtem i yeniden adlandırma
Listboxtaki adrese çift tıklamayla gider ve form kapanır
Listboxtaki adrese çift tıklamayla gider ve form kapanır2
Listboxtaki adrese çift tıklamayla gitme
Listboxtaki adrese çift tıklamayla gitme2
Listboxtaki adrese tek tıklamayla gitme
Listboxtaki hücrenin bulunduğu satırı çift tıklamayla seçer gider ve form kapanır
Listboxtaki kolonun tarih formatı
Listboxtaki kolonun tarih formatı
Listboxtaki sayıların toplamı textboxta
Lİstboxtakİ verİlerİ ÇaliŞma sayfasina nasil aktaririm?
Listboxtaki verileri sayfaya aktarma
Listboxtaki veriyi enterla seçmek (faresiz yani)
Listboxtakileri topla mesaj ver
Listboxtakilerin yeni kitaba kaydı
Lİstbox'tan combobox'a verİ almak
Lİstbox'tan textbox'a aktarilan deĞer ayni bİÇİmde Çik
Lİstboxtan verİ sİlmek
Listede 1 den fazla olanların 1 adet olarak listelenmesi
Lİstedekİlerİ excelle gÖnder
Lİstenİn en sonuna yapiŞtirma
Llistede kaç kişi olduğunu bulmanın kısayolu.
Macro Çalışırken İmlecin hareket etmemesini sağlayan kodlar
Macro İle koŞullu sİlme
Macro İle satir aÇma
Maİl gÖnderİmİ outlok İle
Makro bitince tekrar baştan aldırma (döngü)
Makro çalıştırma 5 dakikada bir
Makro içinde tamsayı ve tavana yuvarlama
Makro İÇİnde yazilan mesaj metnİnİ deĞİŞtİrmek
Makro İle ayni olan hÜcrelerİ sİlme.
Makro İle belİrlİ bİr hÜcreye sayfa sayisi yazdirma
Makro ile birleştir formülünü oluşturma
Makro İle dosya aÇma problemİ
Makro ile form import etmek
Makro ile geri al (undo)
Makro İle gİzledİĞİmİz sheet İ aÇmak İÇİn yazacaĞimiz makraya Şİfre sormasini saĞla
Makro ile hücre birleştirme
Makro İle kopyalama ve yapiŞtirma
Makro İle sayfa sİlmek
Makro ile tarih çıkarma cevap gün olarak
Makro istediğim tarihten sonra açılmasın
Makro kodlarında hata mesajı verdirme
Makroda bİr veya bİrden Çok deĞer dÖndÜrmek
Makroda bul ve kopyala yapiŞtir
Makroda hesaplanıyor mesajı
Makro'da kenarlik ?
Makrolar kutusu ve makrolar gÖrÜnsÜn
Makroları otomatik açılması, çalışması, kapanması
Makroların istenilen sayfada çalışması
Makrolarınız gizli olsun diyorsanız
Makrolariniz gİzlİ olsun dİyorsaniz
Makronun ÇaliŞmasi a1 hÜcresİne 1000 yazip aŞaĞidakİ kodu ÇaliŞtirin
Makronun otomatİk olarak acİlmasİ ve calİsmasİ
Makronun sadece bulunulan dosyada çalışması
Makroyla buton eklemek
Makroyla email gÖnderme
Makroyu ÇaliŞtiran makro
Makroyu makro içinden çağırmak için
Makroyu makro içinden çağırmak için 2
Masaüstündeki xls uzantılıları yazar
Masaüstüne ikon oluşturma
Masaüstüne kısayol oluşturma iconlu
Maskeleme kodu
Menu ve komutları etkin, seçilebilir
Menu ve komutlarının iptali, seçilemez
Menü çubuğunu ve tam ekranı gizle
Menü çubuğunun silinmesi ve özel bir menünün oluşturulması
Menü ekleme
Menü ekleme
Menü ekleme ve silme
Menü ekleme ve silme
Menü index numaraları
Menü olarak saat ekleme (en güvenilir)
Menülerin İngilizce ve türkçeleri
Mesaj alt alta birleştirme
Mesaj ile saati öğrenme
Mesaj kutusu caption
Mesaj kutusu çift satırlı 1
Mesaj kutusu çift satırlı 2
Mesaj kutusu çift satırlı 3
Mesaj kutusu ile sayfa yazdırma adedi gir (sayfa boş bile olsa yazdırır)
Mesaj kutusu örnekleri
Mesaj kutusunda evet hayır a makro atama
Mesaj kutusunda gün, tarih, saat
Mesaj kutusuyla formül girme
Mesaj örnekleri
Mesaj verdirip kapatma
Mesajdan sonra makro
Mesajla boş olup olmadığını kontrol etme
Mesajla numerik veya numerik olmadığını kontrol etme
Mesajla tarih formatı olup olmadığını kontrol etme
Metİn kutusuna gİrlİlen yazinin para bİrİmİ Şeklİnde olmasi
Metİn kutusunun formatini ayarlamak
Metinleri büyük & küçük harfe çevirir
Metİnlerİ bÜyÜk&kÜÇÜk harfe Çevİrİr
Mİcrosoft outlookdan uyari e-maİlİ gÖndersİn
Midi çalma
Midi çalma
Midi dosyası çalma
Mini email
Modül gizleme
Modül silme
Modüle yazılan kodun sayfada aktif yapılması
ModÜle yazilan kodu sayfada aktİf yapar
Mouse tıklayınca hesaplama
Mp3 dosyası çalma
Mp3 dosyasının süresini hesaplatın (dosya yolunu yazın ve o hücreyi seçin)
Msgbox ikaz
Msgbox la a1 e veri girme
Msgbox'da - gÜn - tarİh - saat gÖsterİ
Msgbox'da - gün - tarih - saat gösterir
Multipage de butonla geçiş
Multipage de sayfa seçmek
Multipage' e tıklayınca makro çalışması
Multipage geçiş şifreli
Multipage geçişi
Multipage te gezinti butonla
Multipage te gezinti scroll barla
Multipage zemin rengi
MultiPageden sayfaya geçiş
Multipageler de sayfaya geçiş
Mükemmel menü ekleme, dosya menüsünde yazdır, baskı önizle, sayfa yapısı kalır
Mükemmel mp3 çaldırma
Mükemmel sağ fareye menüsünü siler ve yazdır, baskı önizle, sayfa yapısını ekler
Mükerrer kayıt var ikazı
Mükerrer kayıtlarda yeniden kayıt yapılsın mı olayı
Mükerrer kayıtları siler
Mükerrer kayıtları siler (mükerrer kayıt raporlar)
Mükerrer olanları kırmızı ile tespit etmek
Negetif sayıları toplama
Nesne ekleme penceresi
Nesne ÖzellİĞİnİ tek seferde deĞİŞtİrme
Networkteki yazıcı da yazdırır
Normal ekran için
Not defterini açma ve kapama
Not defterini çağırma
Not defterİnİ ÇaĞirir
Not defterini veya diğer uygulamaları açma
Notepad ile txt dosyası açtırma
Numfact isimli hücrenin açılış ve kapanışta artırılması
Numlock u açma, kapama
Office yardımcısına hello yazdırın
Ondalıklı toplam
Optionbutonla seçilen verinin yazdirilmasi
Optİonbuttonlarin İŞaretİnİ kaldirmak
Optionbuttonun özelliğini textboxa yazdırmak
Otomatİk cÜmle yazar
Otomatik düzelt penceresi
Otomatik hesaplama etkin-etkisiz
Otomatik makro her 10 saniyede
Otomatİk makro kayİt
Otomatik süz ile alttoplam
Otomatik süzü (filtreyi) aç
Otomatik süzü açtırma
ÖNİzleme makrosu
ÖNizlemesiz a5 kaüıttan çıktı alma
Önizlemesiz yazdırma
ÖZel altbilgi sayfa1 de sol alt köşede kitap ismi
Özel gider iİndirimi makrosu
ÖZel görünümler penceresi
ÖZelaltbilgi sağda dosya yolu, sağda kitap ismi
Para formatı
ParÇa al fonksİyonu macro olarak hazirlamak
Parola değiştirme farklı kaydetle
Partisyon belirt ne kadar dosya varsa listelesin
Pasİfİze olan excel ÇaliŞma kİtabinin aktİfleŞtİrİlmes
Pasta diyagramı çizme
Pc kapatma kodları
Pdf dosyası açma penceresi
Pdf dosyası açma penceresi2
Pdf önizleme
Pencereleri yerleştir penceresi
Pencerelerin hepsi minimize
Pencereyi dikey bölme
Pencereyi dikey bölme 2
Performans testi
Peşpeşe bul komutu
Pİvot table sum - count hakkinda
Pivot table verileri yineleme
Pivot table yenileme
Pivot tables veri yineleme
Pivot tablo bilgilerinin güncellenmesinin açık olduğunu bildirir
Pivot tablo bilgilerinin güncellenmesinin kapalı olduğunu bildirir
Pivot tablodaki bilgileri yenileme 1
Pivot tablodaki bilgileri yenileme 2
Prİnt alinmiŞsa sayiyi bİr artir
Program açıldığında merhaba
Program kapar
Rakamı metne çevirme
Rakamı metne çevirme 2
Rakamı yazıya çevirme makrosu
Rakamı yazıyaçevirmek(ingilizce)
Rakamlarin soluna sifir eklenmesİ
Raporlamadakİ sorun
Rastgele (random) numara verme
Rastgele bir sayinin üretilmesi
Rastgele sayı üretir 49 dan küçük
Rastgele sayı üretme
Rastgele sayı üretmek
Rastgele sayı üretmek
Rastgele sayı üretmek 2
Rastgele sayılar üreten random
Rastgele seçer fakat seçtiğini bir daha seçmez
Rastgele seçimi farklı hücrelerden başlayarak yapar
Rastgele seçme
References kontrolü
Regİster de yenİ anahtar oluŞturmak
Registry'den bilgi almak
Renk saydırma hangi renkten kaç tane var buldurma
Renk seçenekleri penceresi
Renklendirilmiş hücreler harici satırları gizleme
Renkleri listeleme
Renkli hücreleri saysın
Renkli hücreleri toplama
Renkli hücreleri toplama 2
Renkli hücreye sadece rakam girme: msgbox
Renkli hücreye şifreli giriş (sarı)
Resim çekmek (printscreen)
Resim ekleme penceresi
Resim ekletme mecburi dizin
Resmi kopyala penceresi
Resmin yarısını gizleme ve gösterme
Rgb kodları ile hücreyi renklendirme
Saat farkı hesaplatma
Saat formatı
Saat tarih fonksiyonları
Saat tarİh fonksİyonlari
Saati menü olarak ekleme
Saati saniyeye çevirme
Saati ve tarihi öğrenme
Sadece a1 hücresinin yazdırılması
Sadece harf veya rakam girme
Sadece hücredeki değerleri silme
Sadece rakam girme
Sadece yazılı alandan aşağı doğru yazdırma alanı seçilir, tek hücre bile olsa
Sağ fare yasak belli hücrelerde
Sağ fareye kolay menü
Sağ fareye menü
Sağ fareye menüsüne ekleme
Sağ klik yapinca 3 tane ok çikiyor bunu silemiyorum
Sağ ok yön tuşu ile textbox atlama
Sağ üstbilgiye tarih ekleme
SaĞdan kelİme alma
Sağdan ve soldan ilk boşluklu harf ve harf gruplarını bulma
Satır ekleme 32 adet
Satır gizleme 6 şar satır atlayarak
Satır gizleme ikinci tıklamada çözülür
Satır seçme
Satır sıralama son satıra kadar
Satır sıralama tüm sütuna kadar
Satır sıralama yandaki satırla birlikte
Satır sıralama yandaki satırla birlikte 2
Satır sütun başlaıklarını gizle-göster
Satır sütun gizleme 1
Satır sütun gizleme 2
Satır ve sütun genişliği
Satır ve sütun genişliğini siz belirleyin
Satır ve sütunla ilgili bir makro
Satır ve sütunlar cm olarak ayarlayın
Satır ve sütunları renklendirme
Satır veya sütundan aritmetik sıralama
Satır yüksekliğini ayarlatma
Satır, sütun isimleri hücreler dahil herşeyi seçer
Satırda ilk boş olan hücreye gider
Satırı diğer sayfaya kopyalama
Satir ekle, kopyala,sirala,alt toplamlarini al.
Satir eklendiğinde m-n ve o sütünundaki hücre değişmesin
Satir silme
Satir sütun başliklarini etkisiz yapar
Satir sütun gizleme
Satirdan sütuna dönüştürme
Satiri temizleme
Satirlari artan siralamaya almak
Satirlari seçmek
Satirlari sütunlara listelemek
Save as
Save as makrosu sadece belİrtİlen sayfayi kaydetsİn
Save as(farkli kaydet)
Sayfa 1 a1 den itibaren sayfaların listesi
Sayfa 1 hariç tüm sayfaları gizle
Sayfa 1'den 2'ye kaydetme, boşlukları doldurarak
Sayfa 2 deki isimlerin karşisina değeri yazma
Sayfa adini değiştirme
Sayfa adini yazdirma
Sayfa adlarını listeleme
Sayfa adlarını listeleme 2
Sayfa adlarını renklendirme
Sayfa adlarinin (sekme adi) lİstelenmesİ
Sayfa aktif olunca mesaj verme
Sayfa aktif olunca sol üstbilgi olarak tarihi ekleme
Sayfa aktifleşince makro çalıştırma
Sayfa alfabetik sıralama gizli sayfaları da sıralar Türkçe karakter sorunu olmaz
Sayfa alfabetik sıralama gizli sayfaları da sıralar Türkçe karakter sorunu olmaz 2
Sayfa çoğaltma
Sayfa dolu ise doluları sırayla önizleme yapar boş ise göstermez
Sayfa ekle a1 hücresine otomatik olarak sayfanin adinin yazilmasi
Sayfa ekleme
Sayfa ekleme inputboxa ismini yaz
Sayfa ekleme sıra numarası vererek
Sayfa eklemek İÇİn aŞaĞidakİ kodu deneyİn. 1.Sayfayi kopyalar
Sayfa gİzleme hİÇ gÖstermeme
Sayfa gizleme işlemleri
Sayfa index numarasına göre bulma
Sayfa isimleri mesaj kutusunda sıralı
Sayfa isimleri x ve y olan haricinde olanların silinmesi
Sayfa isimlerini a1 den itibaren listele
Sayfa isimlerini açılışta alfabetik sıralama
Sayfa isimlerini alfabetik sıralama
Sayfa isimlerini alfabetik sıralama 2
Sayfa isimlerini büyük harfe çevirme
Sayfa isimlerini comboboxa aktarma
Sayfa isimlerini listelemek 1
Sayfa isimlerini listelemek 2
Sayfa isimlerini mesajla saydırma
Sayfa isimlerini olduğu gibi sıralar
Sayfa isimlerini sayfanın a sütununa yazdırma
Sayfa isimlerini sıralama
Sayfa isimlerini sırayla mesaj vererek sayar
Sayfa isimlerini toptan değiştirme
Sayfa isimlerini z den a ya sıralama
Sayfa ismi a1 in ismi olsun
Sayfa ismini değiştirme
Sayfa kaydırma scroll çubuğunu çalıştırma
Sayfa kopyalama
Sayfa kopyalama
Sayfa kopyalama (indexi 2 olan sayfanın c6 adıyla kopyalar butonları silerek)
Sayfa kopyalama (macro ile)
Sayfa kopyasını siz belirleyin
Sayfa koruma koyduysanız sıra ile koruma kaldırma menüsü
Sayfa koruma menülerini çağırır
Sayfa koruma menÜlerİnİ ÇaĞirir
Sayfa koruma şifresini kaldırma
Sayfa koruma, otomatik filtre açık
Sayfa korumalarını kaldırır (şifresiz olanları)
Sayfa korumalarını kaldırma
Sayfa koruması kırma
Sayfa koruması nasıl kaldırılır
Sayfa korumasını kaldırma
Sayfa korumasını kırma
Sayfa korumasını kırmak için
Sayfa korumasını kırmak için (unuttuysanız kullanın)
Sayfa link güncelleştirme
Sayfa numarası ekleme makrosu
Sayfa protect unprotect
Sayfa saydırma
Sayfa sayısını bulan kod 1
Sayfa sayısını bulan kod 2
Sayfa sekmelerine koruma atamak
Sayfa sekmelerini hücrede göster
Sayfa sekmelerinin gizlenmesi
Sayfa sıralama
Sayfa sıralama
Sayfa sıralama
Sayfa silerken mesaj vermesin
Sayfa silme & adlandırmayı engelleme
Sayfa sİlme & adlandirmayi engeller
Sayfa silme inputbox a yazarak
Sayfa silme iptal (ing. excel ver.)
Sayfa silme uyarı mesajı almadan
Sayfa şifreleme
Sayfa şifreleme ve açma
Sayfa üzerinde sağ klik menü
Sayfa1 a sütununda sıralı olmayan isimleri aynı anda sayfa2 a sütununda a-z ye sıral
Sayfa1 a1,b1,c1 dolu ve b sütunu gizli,a1 ve c1 i sayfa2 de a1,b1 e kopyala
Sayfa1 a1:a100 arasinda dolgu rengİ sari olan hÜcre varsa o satirin a:an araliĞini say
Sayfa1 de arar bulur, Sayfa2 de listeler
Sayfa1 excel aÇilirken 10 sanİye gÖzÜksÜn.
Sayfa1 excel aÇilirken 10 sanİye gÖzÜksÜn...
Sayfa1 i yazdırma
Sayfa1 in tam ekran olması
Sayfa1'deki bütün kodları silebilirsiniz
Sayfa2 ye geçince b1 hücresini seç ve macro çalıştır:
Sayfa2 yi çok gizler
Sayfa2 yi gizler
Sayfa2 yi gizler gösterir(sırayla 2 tane tıkla)
Sayfa2 yi göster
Sayfada a,b,c,d harflerinden birine tıklayınca istenileni yazdırma
Sayfada b5:g22 arasını seçtirmeme
Sayfada belli hücrelere veri girilince yanındaki satıra tarihini atar
Sayfada boş satırları gizler
Sayfada boş satırları göster
Sayfada bul ve gÖster
Sayfada buton ismi öğrenme
Sayfada büyük harf 1
Sayfada büyük harf 2
Sayfada çift tıklama ile saat ekleme
Sayfada çift tıklama yasak
Sayfada enter ile bir üst hücreye
Sayfada enter ile sağa doğru ilerleme
Sayfada enter iptali
Sayfada formüller silinmesin (diğerlerinin silinmesine izin verir)
Sayfada formülleri silmeyi engelleme (delete tuş iptali)
Sayfada formüllü hücreleri records sayfasına ayrıntılı kaydeder
Sayfada internet explorer ile internet
Sayfada kaç adet formül var sayar bulur
Sayfada kayan yazi
Sayfada koruma olup olmadığını öğrenme
Sayfada link silme
Sayfada metin kutusu oluşturma
Sayfada not verme
Sayfada numerik değer girilirse mesaj ver
Sayfada rakamı bul veya yakınını bulma
Sayfada renklendirilmesini istediğiniz sayıyı msgboxa yazınız
Sayfada resim (image) silme
Sayfada sabitlik
Sayfada sadece formüllü hücreleri kilitler diğerleri açık kalır
Sayfada sağ fareye menü
Sayfada sağ fareye menü ekleme
Sayfada sağ klik geçersiz
Sayfada satır açar
Sayfada tanımlanan adları silme
Sayfada tanımlı adları siler
Sayfada yazdığın her harfi büyük harfe çevirir
Sayfada, hücrede çift tıklamayla diğer sayfaya gitme
Sayfada, hücrede tek tıklamayla diğer sayfaya gitme
Sayfadaki butonların üzerine gitme
Sayfadaki butonun çalışmasını engeller
Sayfadaki commandbuttonun basılmasını önleme
Sayfadaki dolu alanı seçmek
Sayfadaki en son dolu hücreden üstteki boş hücreleri siler
Sayfadaki formüllü hücrelerin formüllerini açıklama olarak ekleme ve silme
Sayfadaki kilitli hücrenin kilidini çift tıklama ile açma
Sayfadaki resmi 180 derece çevirme
Sayfadan adres alıp sütun genişliği ayarlama
Sayfadan sayfaya geçerken hangi sayfanın aktif olduğunu mesajla bildirir
Sayfadan sayfaya geçiş
Sayfadan var İse sayfaadİ nİ seÇİp sayfa Üzerİnde İŞleme devam edecek yok İse eĞer
Sayfakadi dolu alanı seçmek. Satır değişken sütun sabit
Sayfakadİ dolu alani seÇmek.
Sayfalara araç çubuklu ve menülü geçiş
Sayfalara İsteĞe baĞli verİ kaydetmek
Sayfalara otomatik özel alt ve üst bilgi ekleme
Sayfalara Şİfre koymak
Sayfaları alfabetik sıralama
Sayfaları alfabetik sıralama
Sayfaları a-z veya z-a ya göre sıralama
Sayfaları gösteren userform (form olmadan kod ile)
Sayfaları koruma
Sayfaları köprü olarak ekler
Sayfaları menü olarak ekleme
Sayfaları seçer aynı hücreleri kalın yapıp, fontunu değiştirir
Sayfaları sırala a dan z ye
Sayfaları tarar ve veri varsa baskı önizleme yapar
Sayfaları z-a ya sıralar
Sayfaları, sütunları, satırları, hücrelerin raporunu verir
Sayfalarıdaki verileri seçilen tarih aralığında rapor sayfasına listeyen kodlar aşağıdadı
Sayfaların index numaraları mesajla, grafik sayfası ekleme
Sayfaların menü olarak listelenmesi
Sayfalarızın isimlerini gizleyin
Sayfalarin kisa yolunu ekrana getİrİr
Sayfam aktİfken dosyam , alt+f4 İle veya x İŞaretİne tiklayarak kapanmasin İstİyoru
Sayfanın adını ,footerınada sayfa numarasını yazar.1Of 5 gibi
Sayfanın en üstüne gider
Sayfanın kopyasını alma (adını siz belirleyin)
Sayfanın sağ alt köşesine çalışma kitabının adını alt bilgi olarak yazdırır
Sayfanızda hücreye 1 yazılınca bire karşılık gelen cümle otomatik yazılır
Sayfanızdaki çalışma alanınızı belirleyen ve iptal eden macrolar
Sayfanin aktİf hÜcresİnden aŞaĞiya doĞru sayfalariniza kÖprÜ atilir
Sayfaya gÖre form aÇ.
Sayfaya isim verme
Sayfaya jpeg eklemek
Sayfaya koruma koyma
Sayfaya koruma koyma ve kaldırma
Sayfaya koruma koyma ve kaldırma
Sayfaya koruma koyma ve kaldırma 2
Sayfaya şifre koymak
Sayfayı aktive edip aktif hücreye sayı girin
Sayfayı gizle
Sayfayı kaydederken mesaj farklı kaydet iptal
Sayfayı kopyalar ve dün tarihli bir sayfa oluşturup bilgileri onun içerisine atar
Sayfayı koru c sütununu gizleyerek
Sayfayı mesajla listeler sen sadece numarasını yaz o sayfaya gider
Sayfayı Ön İzleme yap
Sayfayı parola ile koruma
Sayfayı yatay yapar ve a1 hücresini yazdırır
Sayfayı yazdırırken çalışma kitabınızın adı ile yazdırır
Sayfayi gİzle
Sayfayi İstenİlen sayi kadar yazdirma ve numaralandirma
Sayı bulma
Sayı formatı virgülden sonra 2 basamak
Sayı tutma
Sayı yaz sonuna ",00" koysun sütun genişliğini ayarlasın, sola yaslasın
Sayı yuvarla (matematiksel işlemler)
Sayı yuvarla 1
Sayı yuvarla 2
Sayı yuvarla 3
Sayı yuvarla 4
Sayıyı dakika ve saniye cinsinden yazma
Sayıyı dolar olarak okuma =dollartext(a1)
Sayıyı paranteze alma örnek: 3- = (3) sayının yanına çizgi şart
Sayıyı rakama kuruşlu çevirmek
Sayinin karekÖkÜ
Seç bir aşağıya sürüklesin
Seç birleştir ortala
Seçilen alanın 2 sayfa olarak yazdırılması
Seçilen alanın baskı önizlemesi
Seçilen alanları bir kağıtta yazdırır eder
SeÇİlen alanlari bİr kaĞitda yazdirir eder
Seçilen dosyanın adını okur
Seçilen hücre rakamsa 0 yapar harfse yapmaz
Seçilen hücreler renklenir
Seçilen hücrelerdeki formülleri değere dönüştürür
Seçilen hücrelerdeki formülleri değere dönüştürür 2
Seçilen hücrelerdeki sıralı sayıları tersten sıralar
Seçilen hücreyi sol üst köşeye alır
Seçilen tüm hücreleri 0 yapar
Seçileni word belgesi olarak açar ve kopyalar
Seçilenin yazdırılması ve sorulması
Seçili alanları durum çuğunda anlık toplar
Seçili hücrelerdeki en büyük değeri bulur ve kalın yapar
Seçili hücreleri emaille gönderir
Seçili hücrelerin hepsi küçük harf (yazım düzeni)
Seçili hücreye boş bir açıklama ekler
Seçili hücreye gider
Seçili hücreye isim verir (ad tanımlar)
Seçili hücreye mesajla 100 yazdırır
Seçili hücreyi kopyalar ve word e aktarır
Seçili satırın silinmesi, siğer sütunlardaki formülleri silmeden
SeÇİm ekle sub Çİft_kayitlarİ_arala
Seçli hücrelerin zoom edilmesi
Seri rakam gir tarihe çevirsin
Seslİ okutma
Sesli saat
Sheet'lerİ bİr sheette toplamak
Sıfıra bölünme hatasını yakalama
Sıralı (artan) sayfa ekler
Sıralı sayfa ekler
Sıralı ve hücre genişliğinde textbox oluşturma
Sırasıyla, b,c,d sütunlarına göre sıralama yapar.
Sil penceresi
Simgeleri, menüleri ve butonları sayfaya ekleyin
Siralama alttakİ ayni numarayi seÇtİĞİmde seÇİlİ numaranin bİlgİlerİnİn textboxa al
Sistem raporu
Sistem tarihini açma
Sistem yazıcılarını görme
Sİyahla yazili .. Lari Çiktida gÖrÜnmemesİ İÇİn beyaz renklİ olmasini İstİyorum
Solda, sağdan karakter sayma + kaç karakter var onu da sayar
Son dolu satır ve sütun
Son yazilan sayfanin sİlİnmesİ İÇİnde ÇikiŞ butonuna aŞaĞidakİ kodu yazin.
SÖzlÜk kodlari
Spİnbutton İle lİstbox'ta İlk ve son satira gİtmek.
Status barda mesajla bekleterek makro yaptırma
Statusbar da (durum çubuğunda) kayan yazı
Statusbar da 10 dan geriye doğru say ve mesaj ver
Statusbar da mükemmel ınitialize
Statusbar(durum çubuğu) da saniyeli mesaj
Statusbar1 saat gÖsterme
Stil penceresi
Sub dosyabul()
Sutun seçimini makrodaki ("c:c") değeriyle oynayarak değiştirebilirsiniz
Sutun seÇİmİnİ makrodakİ ("c:c") deĞerİyle oynayarak deĞİŞtİrebİlİrsİnİz
Sutunu ve aranacak değer makronun içine yazılır
SÜre sona erdİrme
Sürekli flash veren makro örneği
Süreli userform
Süreli userform 1
Süreli userform 2
Sürücü seri numarası göster
Sürücü1) sürücünün olup olmadığını arama
Sürücü2) sürücü kaç tane acaba
Sürücü3) sürücü isimlerini öğrenmek için
Sürücü4) sürücü harfi göster
Sürücü6) boş alan göster
Sürücü7) sürücü hazır mı göster
Sürücünün dosya formatını öğrenme
Sürürcü5) sürücü tipi göster
Sütun aktarma ayınısı gibi c,i
Sütun aktarma sırasıyla, boşluk silerek c,i
Sütun başlıkları rc stili ve normal stil
Sütun genişliği 5 ayarla
Sütun genişliği ayarlama penceresi
Sütun gizleme şartlı
Sütunda arama
Sütunda boş olan satırları hepsini sil
Sütunda boş olan satırları teker teker sil
Sütunda dolu olanları seçer c
Sütunda satırları seç boş olanları silsin
Sütundaki (a:a) dolu satırların altına boş satır ekler
Sütundaki dolu olanları 65536 dan çıkarır
Sütundaki en son dolu satırın bir altındaki boş satıra gider
Sütundaki harfler ve rakamlardan rakamları ayırır
Sütundaki ilk boş hücreye gider
Sütundaki satır sayısını öğrenme
SÜtunlarin gİzlenmesİ
Sütunu hücredeki veriye göre daraltma
Sütunu seç dolu olan veri sayısı söylesin
Sütunu seç kırmızı renkli rakamları a1 e toplasın
Sütunu seç verili hücreden itibaren seçsin
Sütunun sonuna kadar yandaki iki sütunun farkini al
Sütunundaki dolu hücreleri bulur ve yazdırma alanı içine alır
Süzlü aktarma
Süzme sütunda kırmızıları (butonla)
Süzülenlerin comboboxta sıralanması
ŞArta baĞli makro
ŞArta gÖre mesajbox gÖrÜntÜleme
ŞArtlara gÖre aktİf yada pasİf olan komut dÜĞmesİ
ŞArtlı wav çaldırma
Şekillerin alanlarını hesaplama
ŞIfreleme de son nokta
ŞIfreli giriş 0-254 arası bir sayı
ŞIfreli giriş userformda textboxlu
ŞIfreli yazıyı deşifre etme
ŞIfreyi girince kodlar tekrar aktif olsun
ŞIfreyi girmeye zorlama girince diğer sayfaya yönlendirir
Şifre açma
Şifrelemede son nokta
ŞİFrelİ kapali bİr dosyadan verİ almak
T.C. Merkez Bankası Güncel Döviz Kurlarını alma
Tab ile textbox içeriğini seçme
Tab ile textbox içeriğini seçme 2
Tablo boşaltır
Tablo boŞaltir
Tablonuz açıldığı anda internettesiniz:
Tablonuz aÇildiĞi anda
Tablonuzu tam ekran yapar
Takvimi sayfaya yazar(yılı değiştiriniz)
Tam dizin ismini veren bir kod
Tam ekran için
Tam ekran normal ekran
Tam ekran normal ekran
Tam ekran userform
Tam ekran yap, ve çubuğu gizle
Tanımlı adları silme
Tarİh formati yanliŞ İse uyarsin.
Tarih işlemleri 1
Tarih işlemleri 2
Tarih ve sıra numarasına göre kayıt
Tarih yıln kaçıncı haftası
Tarihe göre kitap açma makrosu (belirlenen tarih geçmişse kitabı açmaz)
Tarİhİ macroya metİn olarak okuma.
Tarihi seriye çevirme
Tarihi tam gir o tarihten sonraki ve o yıl içerisindeki haftaları sayfa olarak eklesin
Tarihli hücrede eğer (ıf) makro
Tarihli kopya
Tarihli ve saatli yedek alma
Tarihli yedek almak 1
Tarihli yedek almak 2
Tarihten gün çıkarma
Tek bİr userform İle İŞlem yapmak
Tek buton İle belİrlİ hÜcrelerİ temİzleme
Tek hücrede yer alan "ad soyad" bilgisini ayrı hücrelere alma
Tek tıklamayla çıktı almak
Tek tıklamayla sayfa2'ye git
Temizleme penceresi
Tersten yazdırma
Texboox1 e bu gÜnÜn tarİhİnİ atmasini İstİyorum
Texbox la veri arama
Texboxta yazı rengi
Text box bİÇİmlendİrme
Text dosyası1) oluşturma
Text dosyası2) silme
Text dosyası3) açma ve hazırlama
Text dosyası4) oluştur ve yaz
Text dosyasından veri alma (alt alta, tüm veriler)
Text dosyasından veri alma a sütununa yazma
Text dosyasını açar yeni kitaba açar
Textboka verİ kopyalama
Textbok'tan hÜcrelere verİ gİrme
TextBox 10 dan küçük ise uyarı verir
Textbox büyük harf türkçe karakter sorunu
Textbox da alt+enter ve rakam formatİ / boŞ hucreyİ bul
Textbox format
Textbox her seÇİldİĞİnde İÇerİĞİ sİlİnsİn
Textbox her seçildiğinde içeriğinin silinmesi
Textbox hÜcre toplaminin yazdirilmasi
Textbox içeriğini kopyalamak
Textbox İÇİnde gÜnÜn tarİhİ
Textbox içine gelindiğinde renklendirme
Textbox karakter kısıtlaması
Textbox kutusu görünmez ise görünür yap
Textbox lara gİrİlen rakamlarin para bazinda gÖsterİlmesİ
Textbox nesnesi tab tuşuyla veya mausla seçildiğinde yani aktif olduğunda renk deği
Textbox ta 2 karakterden fazla yazı yazılırsa diğer textbox a geçer
Textbox ta 2 karakterden fazla yazı yazılırsa diğer textbox ta mesaj verir
Textbox ta 2 karakterden fazla yazı yazılırsa diğer textbox ta mesaj verir
Textbox ta binlik ayıracı
Textbox ta virgul kullanmasin nokta ile giris yapsin ve noktadan once ve sonra 2 rakam
Textbox taki boşlukları aldırma
Textbox tarih formatı
Textbox tarih örneği
Textbox un rengi değişsin
Textbox ve comboboxtakileri sayfaya sıralı kaydetme
Textbox yazılan kelimelerin ilk harfini büyük yazmak
Textbox`a metİn gİrİŞİnde paraĞraf yapabİlİrmİyİz enter
Textbox`dakİ yazinin hÜcreye aktarilmasi
Textbox1 de arama textbox2 de bulma
Textbox1 e gİrİlen bİr İsİmle yenİ ÇaliŞma sayfasi aÇma
Textbox1'e tarih, textbox2'ye ay girdiğinizde sayfada bunun kesişimi olan değeri labe
Textbox2 textbox1 den büyükse mesaj ver 1
Textbox2 textbox1 den büyükse mesaj ver 2
Textbox7'de verİler saĞa yanaŞik yazilsin.
Textboxa alfabetik, backspace ve spacebar a izin verir
Textboxa çift tıklama ile form açılması
Textbox'a girerken her üç rakamın arasına bir nokta koyma
Textboxa harf girilince ses çıkarsın
Textboxa numerik girmeye zorlama
Textboxa numerik ve backspace e izin verir
Textboxa rakam gir sonucu labelde gör
Textboxa rakam girmeye zorlamak
Textboxa sadece harf girilmesi
Textboxa sadece nokta veya virgül girmek
Textboxa sadece numara
Textboxa sadece rakam girme
Textboxa sadece rakam girme-karakter sınırlı-boş geçemez
Textboxa sadece rakam ve virgül
Textboxa sadece rakam ve virgül
Textboxa Şarta baĞli verİ gİrİŞİ
Textboxa tarİh yazdirma
Textboxa tıklandığında içeriğin tümünü seçmek
Textboxa veri girmeye zorlamak
Textboxa veri kopyalama
Textboxa yazılan verinin hücreye aktarılması
Textboxa yazıyı yazar yazmaz hesaplama
Textbox'a(metin kutusuna) girlilen yazının para birimi Şeklinde olması
Textboxlar boş geçilmesin
Textboxlara veri girmeyi zorlamak
Textboxlarda tarih toplama
Textboxlarda toplama
Textboxlarda yazanları tek textboxta alt alta birleştirmek
Textboxları hücreye aktarırken arada boşluk bırakmak
Textboxların boş geçilmemesi
Textboxların boş geçilmemesi
Textboxların tümüne format tanımlamak
Textboxlarla sayfaya kayıt
Textboxlarla toplama
Textboxlarla toplama 2
Textboxta başa 0 sıfır eklemek
Textboxta binlik ayıracı 1
Textboxta binlik ayıracı 2
Textboxta binlik ayıraclı toplama
Textboxta email sorgulama
Textboxt'a formatlanan sayi hÜcrede ayni formatta gÖzÜk
Textboxta girişte otomatik büyük harf
Textboxta girişte otomatik büyük harf 2
Textboxta girişte otomatik büyük harf 3 (türkçe karakter sorunu için)
Textboxta girişte otomatik büyük harf 4 (türkçe karakter sorunu için)
Textboxta kuruŞ
Textbox'ta kuruş 1
Textbox'ta kuruş 2
Textbox'ta metnİ İkİ yana yaslama ve tab ÖzellİĞİ
Textboxta ondalıklı sayıları toplama
Textbox'ta para birimi
Textbox'ta para birimi 2
Textboxta para formatı-birimi
Textboxta rakamın başına 0 sıfır ekleme
Textboxta sağa yanaşık yazma
Textboxta seslileri sayma
Textbox'ta tam sayi ÖrneĞİ
Textboxta tarih formatı
Textboxta tarih formatı 2
Textboxta tarih toplama
Textboxta tarih toplama çıkarma hatasız
Textboxta telefon formatı
Textboxta telefon formatı 2
Textboxta telefon formatı 3
Textboxta telefon numarası formatı
Textboxta toplama
Textboxta veri sınırlaması (max karakter)
Textboxta virgülden sonra 2 haneden fazla veya eksik veri girişini engelleme
Textboxta yazanı sayfada buldurma (tamamını yazmak şart)
Textboxta yazanların ilk harfleri büyük olur
Textboxta ytl
Textboxtakİ 1/1 excelde 1
Textboxtaki karakterleri seçme ok işaretiyle
Textboxtakİ verİye gÖre sÜzme İŞlemİ
Textboxtaki yazının mesaj olarak bildirilmesi
Textboxtan çıkarken msgbox
Textbox'u sesli okuma
Textbox'un aktifleştirilmesi
Timer mesaj örneği
Tl ve ytl
Toggle button oluşturma ve komut
Toolbar oluŞturma
Topla formülünü yazar
Topla.ÇArpım worksheet.Function karşılığ
Toplama formülü makro örnekleri
Toplamları sıfıra eşit olan satırları gizler
Treevİew
Treeview a eklediğimiz bir veriyi seçerek bunu çift tıklamayla aktif hücreye yazdır
Tuşa aktarılır gelen kutucuktaki değeri
TuŞa aktarilir gelen kutucuktakİ
Tuşların ascii değerleri ve vba karşılıkları
Tuşların keycode ları
Tüm açıklamaları gizle göster
Tüm araç çubuklarını listele
Tüm checkbutton ları sıfırlar
Tüm dosya ve klasörlerde ara bul penceresini çağırma
Tüm excel dosyalarını açma
Tüm excel dosyasında yazdığımız tüm kodların silinmesini
Tüm formları kapatmak showmodal false olanları 1
Tüm formları kapatmak showmodal false olanları 2
Tüm gizli satır ve sütunları gösterme
Tüm gizli sayfaları göster
Tüm gizli sayfaları göster
Tüm gizli sayfaları sırayla gösterir, mesaj verir göstereyim mi diye?
Tüm harfler büyük (yazım düzeni)
Tüm harfler büyük yazım düzeni
Tüm harfler küçük (yazım düzeni)
Tüm kitabı şifreleleme-Şifreyi siz verin
Tüm kitabı ve sayfalarını şifreleme
Tüm kitabı ve sayfalarını şifreleme 2
Tüm kitapta istenilen sayfada sütunlardaki en son dolu hücreleri bildirir
Tüm kitapta seçili hücre sarı renkli
Tüm klasör kopyalanıyor
Tüm makroları seçtiğiniz bir klasördeki excel dosyalarının içindeki makroları listeler
Tüm makroların listesi
Tüm oppitobuttonları sıfırlar
Tüm resimleri silmek
Tüm satır sütunları gizle
Tüm satır sütunları göster
Tüm satır ve sütunları gizler
Tüm sayfada tek ve fazla seçimde renklendirme
Tüm sayfalarda a1:a5, b6:b10,c1:c5, d4:d10 hücrelerinde veri var ise 0 yapar
Tüm sayfalarda resim (image) silme
Tüm sayfalarda zoom ayarı
Tüm sayfaları gizle 1 sayfa mutlaka gözükür
Tüm sayfaları gizler ve istediğiniz sayfayı gösterir ve tersini yapar
Tüm sayfaları koruma altına alır, kilitler
Tüm sayfaları seçip alfabetik olarak son sayfayı aktif kılma
Tüm sayfaları seçme
Tüm sayfaları seçme 2
Tüm sayfaların a1 değerlerini toplar mesajla bildirir
Tüm sürücüleri gösterir
Tüm şifreli sayfaları geri açma
Tüm textboxların içeriğini temizler
Txt dosyası açma
Txt dosyasına a1 de değeri yazdırma
Txt dosyasını sayfada açıp içeriğini alma, txt dosyasının adı sayfa adı olur
Txt dosyasını seç yeni excel sayfasına yazsın
Txt dosyasını silme
Txt dosyasi aÇma
Txtbox a İkİ krİtere gÖre verİ getİrme
Undo---geri al
Userform 1) userform başlığı
Userform 2) userforma alt simge durumunu küçültme ve ekranı kapla butonu ekleme
Userform 3) userformun üst sağdaki kapat butonunu gizler
Userform 4) belirli bir süre ekranda bekleyen ve daha sonra kapan user form.
Userform 5) süreli userform-2
Userform 6) userformun başındaki kapat butonunu pasif yapar (çarpıya basınca use
Userform 7) userformun çarpı işaretine tıklayınca mesaj kutusuyla uyarı veriyor
Userform bekletmeli açılış
Userform bekletmeli açılış 2
Userform çıkış iptali mesaj ile
Userform da thundername alma
Userform da x tiklayinca excel kapansin
Userform en Üstte
Userform full ekran
Userform içerisindeki nesnelerin tamamının sayısı
Userform kapanış örneği ***** yıldız
UserForm mükemmel bir açılış efekti
Userform otomatik boyutlandırma
Userform otomatik boyutlandırma 2
Userform sağ altta
Userform sağ üstte
Userform sayfa1'den alsın sayfa2'ye kayıt etsin
Userform tam ekran
Userform tam ekran2
Userform un başlığı haraket ediyor
Userform un baŞliĞi haraket edİyor
Userform Üzerİnden excel sayfasini otomatİk sÜz
Userform ve verİ seÇİmİne gÖre bİlgİ alma
Userform x işaretini kaldırmak
Userform x yok
Userform1'İn otomatİk aÇilmasi
Userforma alt simge durumunu küçültme ve ekranı kapla butonu ekler
Userforma alt sİmge durumunu kÜÇÜltme ve ekrani kapla butonu ekler
Userforma farklı kaydet tuşu eklemek
Userforma farkli kaydet tuŞu
Userforma kalan sÜre yazdir
Userforma x ya basınca mesaj gelir kapatmaz
Userformda aktİf sayfa adi
Userform'da çalışan saat-takvimle birlikte
Userform'da ÇaliŞan saat-takvİmle
Userformda hareketlİ gİf
Userform'da iskonto
Userform'da kapat butonu
Userformda resim önzileme
Userformda resİm Önzİleme
Userformda saat
Userformda saat
Userformda saat, işlemci yormaması için 1dk bir kendini yeniler
Userformda takvim
Userformda tarİh
Userformda toplama
Userformda x basınca çalışma kitabından çıkma
Userformda x işareti yok
Userformdaki checkboxları sıfırlamak
Userformdaki commandbotton'a bul eklemek
Userformdaki optionbuttonları sıfırlamak
Userformdaki textboxları sıfırlamak
Userformdan hücreye
Userformdan önizleme kapanınca forma dönme
Userform'dan sayfaya bİlgİ gİrİŞİ
Userformdan userforma
Userformdan x ile çıkma geçersiz uyarı mesajı
Userformdan x ile excel çıkış
Userformsuz combobox tryit e makro yolu verin
Userformsuz diyalog kutusu
Userformsuz form menü sayfa seçme
Userformu alt+f4 ile kapatmak yasak
Userformu daraltma
Userformu kilitlemek 1
Userformu kilitlemek 2
Userformu kilitlemek 3
Userformu maksİmİze yapmak İÇİn
Userformu otomatİk boyutlandirma
Userformu tam ekran yapan kodlar
Userformu tam ekran yapan kodlar
Userformu tam ekran yapan kodlar 2
Userform'un açılış sayısını sınırlamak (demo yapmak)
Userformun başındaki kapat butonunu pasif yapar (çarpıya basınca userform kapan
Userformun baŞindakİ kapat butonunu pasİf yapar (Çarpiya basinca userform kapan
Userformun code bÖlÜmÜne yapiŞtir,textbox'lari ÇoĞaltabİlİrsİn
Userformun çarpı işaretine tıklayınca mesaj kutusuyla uyarı veriyor
Userformun esc ile kapanması, butonla da
Userformun esc ile kapatılması
Userformun genişliği zaman ayarlı
Userformun kapandığı haliyle açılması
Userformun kod bölümüne
Userformun pasif olması
Userformun Üst saĞdakİ kapat butonunu gİzler
Userformun üst sağdaki kapat butonunu gizler
Userformun Üzerİnde 3 adet text box var ve textbox1 deĞerİmİz 2. Ve 3.NÜn toplmi ol
Userform'un yerİ.
Userformunuza ekleyeceğiniz bir adet combobox'a ayları yazar
Userformunuza ekleyeceĞİnİz bİr adet combobox'a aylari yazar
Userformunuzdadakİ texbox'a yazdiĞiniz verİler ayni anda excel ÇaliŞma sayfanizdakİ
Userformunuzu yazdırmak
Userformunuzu yazdirmak
Userformunuzun başlığı '+' şeklinde
Userformunuzun başlığını kodlarla istediğinizi şekilde ayarlayabilirsiniz
Userformunuzun baŞliĞi '+' Şeklİnde
Userin baŞliĞi hareket eder
Uyan Şartlara gÖre userform3'tekİ commandbutton gİzlensİn.
Uyarı mesajı (istediğin zaman, istediğin yerde)
Uyarı mesajı 4 x şeklinde uyarı penceresi
Uyarı mesajları 1
Uyarı mesajları 2
Uyarı mesajları 3 x şeklinde
Uyarılı mesaj---100 tane beep ten sonra mesaj
Uyari kutucuĞu!!
Uygulama başlığı
Uygulama ve kitap başlığı ayarlama
Var olan menü çubuğuna buton ekleme
Varolan kitabın içine kayıt
Varolan sayfaları a1 itibaren alt alta yazar
VB kodlari ile bir excel dosyasi aciyorum fakat bu Excel dosyasindaki makroyu çalışt
VB kodlari ile bir excel dosyasi aciyorum fakat bu Excel dosyasindaki makroyu çalışt
Vba da açalıştırırsan vba kitaplığını açar, sayfada kullanırsan 7 şer kolon atlar
Vba daki sırayı takip ederek sayfa isimlerini otomatik sıralar
Vba kodlarını görme makrosu
Vba kodunu görmek için butonla
Vba penceresİnİn aÇilmasini ve kodlara ulaŞilmasini engelleyen ve aÇan kodlar
Vbs İle klasÖr İŞlemlerİ
Vergi iadesi hesaplama
Verİ aktarma...
Veri bulur
Verİ bulur
Veri değiştirir
Verİ deĞİŞtİrİr
Verİ deĞİŞtİrİrken uyari alma
Veri girme görme
Verİ gİrme gÖrme
Veri kaydırır
Verİ kaydirir
Veri olan hücreleri yazdırır
Veri olan iki ayrı sütunu birleştirme
Veri olan satırlardan yukarısını gizler
Veri olan sayfaları yazdırma
Veri olan tüm sayfaları yazdırır yoksa tarar ama yazdırmaz
Veri sıralar ve isim bulur
Veri siler
Verİ sİler
Verİ siralar ve İsİm bulur
Verilen degeri bul yanindakilari kopyala yapistir.
Verİlen deĞere gÖre farkli hÜcreye bİlgİ veren bİr macro
Verİlen sayiyi gruplara bÖlme İŞlemİ
Verileri formülü bozmadan siler
Verİlerİ formÜlÜ bozmadan sİler
Verileri hücreye otomatik sığdırma
Verileri isim sırasına göre dizer
Verİlerİ İsİm sirasina gÖre dİzer
Verileri kaydeder
Verİlerİ kaydeder
Verİlerİn rapor olarak saklanmasi
Verinin bittiği İlk boş satira yapiştirmak
Verisiz son satıra götürür
Verİsİz son satira gÖtÜrÜr
Verİye gÖre sayfa oluŞturmak ve satirlari kopyalamak
Versiyon numaralarını öğrenme
Virgülden sonra sıfır ekleme
Virgüllü kelimeleri alt alta sıralar
Vİsual basİc project erİŞİmİne gÜven Çekbox'ini true yapmak.
Wait" yerine başka bir komut
Wav çaldırma
Wav çalma
Wav dosyası çalma 1
Wav dosyası çalma 2
Wav dosyası çalma 3
Wav dosyası çalma 4
Wav dosyası çalma 5
Web sayfası açma
Windows arama penceresi
Windows help açma
Windows kapatma penceresini çağırma
Windowsu kapatma
Wmi anakart
Wmi bilgi
Wmi bios
Wmi ekran kartı
Wmi mouse
Wmi network adaptörleri
Wmi sistem
Wmi windows
Word belgesi açma
Word de fontlar
Word sayfasi olarak Çikti almak
Worde veri aktarma
Wordpad'a yazdırmak istediğiniz bir metni excel içerisinden yazdırmak için
Workarea1 isimli hücreyi 0 yapar
Workbook ta yazdırma komutu
Workbook_addininstall
X Şeklİnde uyari penceresİ
Xla dosyasındaki eklenti disable etmek
Xls dosyaları okuyup içinden veri almak için
Yalniz ÇaliŞma sayfasi kaydetme
Yanıp sönme
Yanıp sönme efekti
Yapilan kaydi hafizada tutma
Yaş bulma yıl, ay, gün olarak
Yaş hesaplama
Yaş hesaplama ve mesajla bildirim
Yatay ve dİkey saydirma
Yazdıracağınız satır ve sütunları manuel olarak seçebileceğiniz kodlar
Yazdırılacak alanın boşluk olmadan
Yazdırma alanı seçme
Yazdırma alanı varsa bulur ve mesajla belirtir
Yazdırma alanını a3:f15 yapar ve yinelenecek satırı da seçer ve yazdırır
Yazdırma alanını bulma
Yazdırmak için süzme şart olsun
Yazdırmak için süzme şart olsun 2
Yazdırmayı engelle (üzgünüz çıktı almak yasak)
Yazdırmayı engelleme
Yazdir butonu sayfa yazdirilacak, Önİzleme yapmak İstİyor musunuz
Yazdirma alani bellİ ama sadece İÇİ dolu olan hÜcrelerİn İÇİnİ nasil yazdirabİlİrİm.
Yazdirma alani seÇİp yazdirmak.
Yazı tipi kalınlığını ayarlama
Yazıcı penceresi
Yazıcı test etme
Yazıcıdan çıktı alma kopya sayısını siz belirleyin
Yazıcınızın markasını a1 hücresine yazdır. (Api)
Yazım denetimi türkçe, matematik terimleri
Yazım denetimindeki kelimelerin listesi
Yazi anİmasyonu
Yazi tipleri penceresi
Yazi tiplerini örnekli listele
Yazilar İÇerİsİnde kirmizi renk var İse bulabİlİrmİyİz?
Yazilari yanip sÖndÜrme
Yedek alma İle İlgİlİ
Yedek alma şifreleyerek
Yedek alma tarihli
Yeni araç çubuğu ekleme
Yeni belge açma penceresi
Yeni belge aöma penceresi
Yenİ bİr sayfa oluŞturmak ve o sayfaya İsİm vermek.
Yenİ ÇaliŞma sayfasi aÇarken bİÇİmlİ sayfayi kopyalama
Yeni kitap açar
Yeni kitap oluşturma kitabın ismiyle başlayan ve birer artan kitap oluşturur
Yenİ tl ve kuruŞa Çevİr
Yeni web sorgusu alma penceresi
Yer tanımlama makrosu
Yerİnİ deĞİŞtİrene aŞkolsun. (Hareket ettİrİlemeyen userform)
Yıl ekleme
Yıldızlı efektler
Yılı yaz sayfalara ayları ekler
Yukarıdan aşağıya satırları seç otomatik sıra numarası versin
Yuvarla makroyla (r1c1 stili) nasil yapilir?
Yuvarlak userform İstermisiniz
Yuvarlak userform İstermİsİnİz
Yüklü yazıcı var mı yok mu
Yüklü yazıcı var mı yok mu 2
Yüzde hesaplama
Zaman kaydırma silerek
Zaman sayaci
Zamanlamalı userform
Zamanlamalı userform 2
Zamanlanmİs makro ontİme ?
2533 Application.DisplayAlerts = TrueEnd SubApplication.DisplayStatusBar = Application.DisplayStatusBarEnd SubOther examples of Undo
Next byt End Sub Next iEnd Sub
sizin yaptığınızdan esinlenerek şöyle bir şey yaptım. O da sadece 1. satırla 2. satır arasına 7 tane satır ekledi. Yani döngüde ilk if'in sağlandığı yere. End WithEnd SubCells(1, 1).SelectEnd SubApplication.DisplayAlerts = TrueEnd SubNextEnd SubSheets(1).SelectEnd Sub 10, "''MsgBox'' für 10 sec (©)2003 KMB", vbSystemModal)End Sub Next WsTabelleEnd Sub Toolbars("Custom Toolfaces").DeleteEnd Sub Next End Sub ListBox2.List() = WorksheetFunction.Transpose(MyArray) End Sub
Next iEnd Sub End WithEnd Subdevam:End SubMsgBox "Three Seconds is up!"End SubEnd Sub
Text3.Text = Str(sonuç)End SubIf Target.Row = 4 Then MsgBox "Aşkından Selamlar"End SubIf Target.Column = 4 Then MsgBox "Aşkın'dan Selamlar"End SubCall auto_openEnd Sub End Select End SubSet NewSh = NothingEnd Sub Target.Interior.ColorIndex = Target End SubNext End SubEnd If If WorksheetFunction.CountIf(Columns(2 End If End Sub MsgBox "Tebrikler..!", vbInformationEnd SubRange("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.DeleteEnd Sub NextEnd Sub Loop Until ActiveCell = Range("A" & zellende + 1)End Sub NextEnd SubApplication.ScreenUpdating = TrueEnd SubNextEnd SubRange("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.DeleteEnd SubNext iEnd Sub Range("B1")End Sub Intersect(ActiveCell.EntireRow, Columns("A")).Value = ActiveCell.Row + rowoffsetEnd SubGoTo baslaEnd Subbitti:End SubNext iApplication.ScreenUpdating = TrueEnd Sub
TextBox1.Value = WorksheetFunction.Max(Range("A:A")) End Sub Range("B1")End SubNextEnd Sub Next IEnd SubNextEnd Sub Range("C11").SelectEnd Sub"h1"), Unique:=TrueEnd Sub
WorksheetFunction.CountA(Columns("A"))
Range("A1").AutoFilter Field:=1, Criteria1:=">2", Operator:=xlAnd, Criteria2:="<8"
Application.Sheets("Sayfa Adı").ScrollArea = "A1"
Selection.Calculate 'seçili olan aralık F9 tuşuna basılınca hesaplanırEnd SubNextEnd Sub Cells(i + 1, 1) = i Next iNextEnd SubIf Cells(C, "c")=cells(C,"a") Then Rows(C).DeleteNextNext iEnd SubRange("A" & bassat, "C" & sonsat).SelectEnd SubEnd IfEnd SubEnd Sub
Next End Sub End IfEnd Sub End IfEnd Sub End IfEnd SubEnd IfEnd SubEnd IfEnd Sub Range("A1").SelectEnd SubIf Target.Address = "$A$1" And IsEmpty(Target) = True Then Target = "10"End Sub Worksheets(s1.Range("A1").Text).Select End Sub
End SelectEnd Sub Next iEnd Sub formul_al = ""End FunctionActiveWorkbook.SaveAs testEnd Sub Set NewSh = Nothing End Sub Set NewSh = Nothing End Sub UserForm1.ShowEnd Sub Range("A3") = VoyelEnd Sub NextEnd Sub Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).SelectEnd Sub LoopEnd Sub Set NewSh = NothingEnd Sub Intersect(ActiveCell.EntireRow, Columns("A")).Value = ActiveCell.Row + rowoffsetEnd Sub kod = Target.Value End SubEnd IfEnd Sub& "Résultat :" & CStr(Resultat)End SubEnd IfEnd SubRange("A1").Value = Environ("USERNAME")End SubSelection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=TrueEnd SubRange("A1").Value = vorschlagEnd Sub End With End Sub
=NSAT((A1-HAFTANINGÜNÜ(A1;2)-TARİH(YIL(A1+4-HAFTANINGÜNÜ(A1;2));1;-10))/7)Application.EnableEvents = TrueEnd Sub End IfEnd Sub End With End SubEnd IfEnd SubActiveWorkbook.SaveAs Filename:="C:\" & ActiveSheet.Range("A1")End SubEnd If End SubEnd If End Substopit = TrueEnd Sub ActiveWorkbook.SaveAs "c:\excel\" & NomFichierEnd Sub End If End Sub
End IfEnd Sub
Workbooks.Close
Range("A1").Interior.ColorIndex = xlNoneEnd SubEnd Sub Dosyayı yollıyorum..Herşeyin bir ilk var dimi.. End WithEnd SubNext MycellEnd SubApplication.ScreenUpdating = TrueEnd SubNextEnd SubNextEnd SubMsgBox " bu 2.makrodur"End Sub NextEnd SubIf [a10].Value <> [c10].Value Then MsgBox ("Girdiğiniz rakamlar farklı")End SubCells(rastgele, 1).Select End Sub Next rgRowEnd Sub
Next cell End SubEnd Sub
Range("A11") = totalEnd Sub Range("A1:A10000").Value = bufEnd SubComboBox1.AddItem "1 C Sınıfı" End Sub Set rCell = NothingEnd Sub Set rCell = NothingEnd Sub Set rCell = NothingEnd Sub Sheets(shtName).Range("A1")End Sub Next i End Sub End If End SubSelection.Interior.ColorIndex = xlNone End SubEnd Sub
Set bulHucre = Nothing End SubActiveSheet.Names.Add Name:="MyRange1", RefersTo:="=$A$1:$B$10"End SubEnd If End Sub If Not MyIsect Is Nothing Then UserForm1.Show End Sub End IfEnd Sub On Error GoTo 0End Function=SumIfColours(3;$A$1:$D$20)
=SumIfColours(3;$A$1:$D$20) Range("B2").ActivateEnd Sub .Range("A1:H1"))End SubRows("45:65536").Hidden = True End Sub Rows("45:65536").Hidden = False End SubApplication.DisplayStatusBar = Application.DisplayStatusBar End Sub Application.OnTime RunWhen, "StartBlink", , FalseEnd SubWorksheets("Tabelle2").Range("A1")End SubNext nEnd SubEnd IfEnd SubNext iEnd SubNext xEnd Sub
LoopEnd SubActiveSheet.Name = (Name)End SubRange("A3").Offset(2, 2) = 5End Sub Set rTarget = NothingEnd SubWorksheets("Sayfa1").PrintOutEnd Sub End If End SubApplication.Dialogs(xlDialogFindFile).ShowEnd Sub
Range("A1:newrij,b1:sprij").Select
Workbooks.Open Filename:="\\Hakan\c\Belgelerim\İHRACAT KAYITLI.xls"
ActiveWorkbook.Save
End WithEnd SubUnload UserForm1End SubUserForm1.ShowEnd Sub End IfEnd SubApplication.DisplayCommentIndicator = xlCommentIndicatorOnlyEnd Sub NextEnd SubEnd With End Sub End WithEnd SubThisWorkbook.Worksheets("Sayfa1").ActivateEnd Sub ActiveWindow.Caption = "0505-778 47 69"End SubActiveSheet.OnEntry = ""End SubActiveWindow.WindowState = xlNormalEnd Sub Application.CommandBars("TestCB").Visible = FalseEnd Sub End With End Sub MsgBox ActiveCell.AddressEnd Subcall <istediğin makronun adını yaz> end sub call calisacakmakroadi ' Çalışmasını istediğiniz makronun adı ... end subSelection.Range("A1").SelectEnd Sub' ActiveWorkbook.Protect ("Passwort")End SubMsgBox "Hallo " & InputBox("Bitte Namen eingeben:") & "!"End Sub End WithEnd SubMsgbox "Hello"End SubMsgBox ("Toplam ") & ThisWorkbook.Worksheets.Count & (" adet sayfa bulunmaktadır."), vbOKOnly, "pir"End Sub ActiveWorkbook.SaveEnd Sub ActiveSheet.EnableAutoFilter = TrueEnd Sub10 Workbooks.Open Filename:="C:\Belgelerim\kayıtlar.xls"End Sub End Sub
[A1] = ActiveWorkbook.Path End SubNext wApplication.Quit
end sub
call calisacakmakroadi ' Çalışmasını istediğiniz makronun adı ... end subUserForm1.HideEnd Sub Application.Dialogs(xlDialogCreateNames).ShowEnd SubApplication.Dialogs(xlDialogDefineName).ShowEnd Sub
End IfEnd Sub MsgBox "Workbook names have been updated."End SubCells(1, 1).SelectEnd SubMsgBox Left(ag, InStr(1, ag, Chr(0)) - 1) End Sub'eğer kitaplar aynı makine üzerinde iseApplication.Run "c:\klasoradi\kitapadi.xls!makroadi"
Next iEnd Sub If Windows(wkbk.Name).Visible = True Then 'MsgBox wkbk.Name & " " & WindowActiveCell.Value = ActiveWorkbook.FullNameEnd Sub
MsgBox msg & Here & ":= " & MyColumnEnd SubNext nEnd Sub Set EskiHucre = TargetEnd SubSelection.Name = "MyRange4"End SubActiveSheet.Names.Add Name:="MyRange2", RefersTo:="=" & Selection.Address()End Sub Target.ActivateEnd Subeski = Target.ValueEnd Sub
destrange.CurrentRegion.EntireColumn.AutoFitEnd Sub'e.g. Amino acid sequences in 3-letter-code or nucleotide tripletts'you can select a range of cells within the'do not select more than one column, cells to the right of this column will be overwrittenIf SSelection.Resize(7, 7).SelectEnd Sub Range(ActiveCell, ActiveCell.End(xlDown)).SelectEnd Sub(" Çalışma sayfasına köprü oluşturuldu"), vbOKOnly, ThisWorkbook.Name End Sub LoopEnd SubNextEnd Sub LoopEnd Subcel(i).Value = "=SUM(R[-10]C:R[-1]C)"End Subcel(i).Value = "=SUM(R[-10]C:R[-1]C)"End SubSelection.EntireRow.InsertEnd Sub Range(ActiveCell, ActiveCell.End(xlToRight)).SelectEnd SubActiveCell.End(xlToRight).Select ' aktif hücreden sağa doğru son satıra giderEnd Sub Range(ActiveCell, ActiveCell.End(xlToLeft)).SelectEnd Sub Range(ActiveCell, ActiveCell.End(xlUp)).SelectEnd Subcell.Comment.Visible = Falsecell.Comment.Shape.TextFrame.AutoSize = True Set EskiHucre = TargetEnd SubMsgBox azEnd SubNext NEnd Sub Target.EntireRow.Interior.ColorIndex = 38End Sub Selection.EntireRow.SelectEnd Sub Selection.EntireColumn.SelectEnd Sub End IfEnd SubEnd IfEnd SubApplication.Goto Reference:=ActiveCell, Scroll:=TrueEnd SubActiveCell.Offset(3, 0).Range("A1").SelectEnd Sub End IfEnd Sub End WithEnd Sub Next iEnd SubActiveCell.Value = ExecuteExcel4Macro("get.document(1)")End Sub End IfEnd Sub Target.ActivateEnd SubActiveCell = DateEnd Sub ActiveCell.Value = (i + 1)End Sub ActiveCell.Value = (i -1)End SubActiveCell = pirEnd SubTextBox1 = ActiveCellEnd SubEnd IfEnd Sub Application.Dialogs(xlDialogSendMail).ShowEnd SubActiveCell.EntireColumn.SelectEnd Sub Next iEnd SubCells.Interior.ColorIndex = xlNoneEnd SubActiveSheet.Names.Add Name:="MyRange3", RefersTo:="=" & rngSelectEnd SubHide ----> ActivateUnload ---> VBA için Initialize , VB için Load .Caption & " " & Application.UserNameEnd SubNext oCellEnd SubRange(Cells(ZeileAnfang, SpalteAnfang), Cells(ZeileEnde, SpalteEnde)).SelectEnd Sub Selection.EntireRow.SelectEnd Sub delrange.DeleteEnd Sub Next areaEnd Sub End IfEnd Sub Activesheet.Name="Neuer Name"End Sub
(" Tabellenblätter in dieser Arbeitsmappe."), vbOKOnly, ThisWorkbook.NameEnd Sub'Thisworkbook a Option Explicit End WithSheets(wkSheet.Name).Rows("1:3").Font.Bold = TrueNextEnd Sub Application.EnableEvents = TrueEnd SubSheets(1).ComboBox1.Value = ""End Sub ' hier auszuführenden Code ergänzenEnd Sub End SelectEnd Sub Set RaBereich = NothingEnd Sub Set RaBereich = NothingEnd SubNextEnd Sub End IfEnd Sub MsgBox "Click droit indisponible"End Sub Application.EnableEvents = TrueEnd Sub ActiveWindow.SelectedSheets.PrintOut Copies:=1End Sub Application.DisplayCommentIndicator = xlCommentIndicatorOnlyEnd Sub Application.DisplayCommentIndicator = xlCommentIndicatorOnlyEnd Sub Target = UCase(Target)End Sub BH = UCase(BH)End Function ActiveSheet.PasteEnd SubEnd Sub
MsgBox "a ha da çalıştı"End SubActiveCell.Value = ActiveSheet.NameEnd SubSheets(shtName).Move After:=Sheets(Sheets.Count)End SubNextEnd SubMsgBox "Active Sheet : " & ActiveSheet.Name End Sub MsgBox "Bu sayfanın adı " & ActiveSheet.NameEnd Sub'Active la boite de dialogue Enregistrer sousEnd SubSheets(ActiveSheet.Index + 1).SelectEnd Sub Unload Me End SubActiveSheet.Unprotect Password:="pir"End Sub End IfEnd Sub Sheets(SayfaAdı).Range("A1")End Sub Application.ScreenUpdating = TrueEnd SubSh.Range("A1:Z10").Copy Range("A2")End Sub Application.Calculation = xlCalculationAutomaticEnd SubActiveSheet.DeleteApplication.DisplayAlerts = True Range("A1").SelectEnd SubActiveSheet.PrintOutEnd Sub Range("A1").SelectEnd Sub End IfEnd Sub On Error GoTo 0 ' resume normal error handlingEnd SubApplication.ActiveWindow.CloseEnd If WendEnd SubMsgBox ActivePrinter End SubActiveCell.EntireRow.AutoFit End SubNextEnd Sub BeepEnd SubNext i End Sub'BU KOD SAYFA HAREKETİNİ NORMAL HALE GETİRİR. End SubMsgBox fEnd SubNextEnd SubWorksheets(1).PageSetup.LeftFooter = ThisWorkbook.FullNameEnd Sub
End SubEnd Sub
End Sub
NextEnd Sub False, Transpose:=True End Sub MsgBox Say2.Name & "'de aramış olduğunuz " & Veri & " verisini içeren toplam " & Sayac & " adet hücre değeri bulundu ve " & Say1.Name & "'de listelendi."End Sub Set MyData = NothingEnd Sub NextEnd SubSet MyRng = Nothing End FunctionToolbars("Outils NewGam").DeleteEnd SubEigene_Symbolleiste_löschenEnd SubNext tbEnd Sub On Error GoTo 0End SubNext tbEnd Sub Application.ScreenUpdating = True End Sub Set VisibleCmdBs = NothingEnd Sub Application.CommandBars.FindControl(ID:=30007).Enabled = TrueEnd Subedit : yukarıdaki örnekteki gibi aplication 'un screenupdate'i daha sonra kullanılmayacaksa, true yapmak mantıksızdır. iş bittiğinde zaten otomatik olarak true olur. sen neden yaptın derseniz, alışkanlık. edit : yukarıdaki örnekteki gibi aplication 'un screenupdate'i daha sonra kullanılmayacaksa, true yapmak mantıksızdır. iş bittiğinde zaten otomatik olarak true olur. sen neden yaptın derseniz, alışkanlık. 10 MsgBox "Aranan veri bulunamadı."End SubNextEnd Sub MsgBox "Kayıt bulunamadı", vbCriticalEnd Sub End IfEnd Sub[a1] = Replace(TextBox9, Chr(13), "")End SubApplication.DisplayStatusBar = Application.DisplayStatusBar End SubConst SPIF_UPDATEINIFILE = &H1 Const MyPic = "" ActiveWindow.ActivatePreviousEnd SubActiveCell.Offset(0, -1).SelectEnd SubSelection.Delete Shift:=xlUpEnd Sub CommandBars("Cell").ResetEnd Sub Next iEnd Sub Sheets(SayfaAdı).Range("A1")End SubNext IEnd Sub Application.ScreenUpdating = TrueEnd Sub TextBox3.SetFocusEnd Sub [a8].NumberFormat = "hh:mm"End Sub Sheets(1).ActivateEnd Sub'Kodun çalıştırılacağı aktif sayfayaOption ExplicitEnd FunctionB1127B1141 Cells(iRow, 1).SelectEnd SubUserForm1.Left = 10End Sub Close #1End SubIf IsNumeric([a1]) And [a1] <> 0 Then [b1].Formula = [b1].Formula & "+" & [a1]End Sub txtadet.SetFocusEnd SubEnd IfNext MsgBox "Kaydedildi" End Sub Sheets("Sayfa2").SelectEnd SubEnd IfNext iSet NewSh = NothingEnd SubEnd Sub
NextEnd Sub s2.SelectEnd Sub vbOKOnly, "Adresse der aktiven Zelle ..."End Sub vbOKOnly, "Ayrıntılı aktif hücre adresleri"End Sub
Application.Dialogs(xlDialogPrint).Show
Workbook (“KİTAP.XLS”).Worksheets(“Tablo1”).Range(“D8”).Clear
End WithEnd Sub
kapalı c:\klasor\kitapadi.xls sayfa1 sayfasındaki a1 hücresini alır. If ActiveCell.Column = 2 And ActiveCell.Row > 1 And ActiveCell.Row < 22 Then Kalender.ShowEnd SubNext iEnd Sub End IfEnd Sub Next iEnd Sub Intersect(ActiveCell.EntireRow, Columns("A")).Value = ActiveCell.Row + rowoffsetEnd Sub Next rbEnd SubNext iEnd SubMsgBox "VERİLER AKTARILDI"End Sub NextEnd Sub Target.Offset(0, -1).Formula = "=Row()-1"End Sub End WithEnd SubApplication.OnTime Now + TimeSerial(0, 0, 1), "clock"End SubNext nEnd SubActiveSheet.ProtectEnd Sub'C2 ye =EĞER(B2>10;MakroStart();"Nix") yaz'B2 ye 11 yaz makro çalışsın
cel(i).Value = "=SUM(R[-10]C:R[-1]C)"End Sub End IfEnd SubFeuil1.ScrollArea = "" End Sub NextEnd Sub End IfEnd SubNextEnd FunctionMsgBox "Bastığın tuş: " & Chr$(KeyAscii) & Chr(10) & strSaveEnd Sub ActiveWindow.View = xlNormalView End SubMe.Show End Sub
ActiveWindow.View = xlNormalView End Sub Cancel = TrueEnd SubNext End Sub .Close False End With Wk.SaveAs Filename:="C:/MyData/SalesData.xls"End Sub
Range("A1").Value = ""End Sub MsgBox "Dosya şu anda başkası tarafından kullanılmakta !"End Sub Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, Goster)End SubCall SetWindowPos(handleW1, 0, 0, 0, 0, 0, TOGGLE_UNHIDEWINDOW)End SubCall keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0)End Sub Unload MeEnd Sub Unload MeEnd Sub Next Sheets("ana sayfa").Move Before:=Sheets(2) Beep 880, 900End Sub DoEvents '2 saniye bekle WendMsgBox ("Il est: " & mheure)End Sub Application.OnTime Now+TimeValue("00:00:01"), "NextMacro"End SubMsgBox "Ve Aleyküm Selam! Kusura bakma 10 saniye sonra oldu ama."End Sub ' gives control of the statusbar back to the programmeEnd SubSendKeys "%{F4}", True ' Envoie Alt+F4 pour fermer l'application EXPLORER.End Sub Shell "explorer.exe", vbMaximizedFocusEnd SubMsgBox Application.FixedDecimalEnd Sub End Sub
If Not MyIsect Is Nothing Then UserForm1.Show End Sub
Application.OnTime TimeValue("12:00:00"), "makro adı"
Set RaBereich = NothingEnd SubActiveSheet.PrintOut From:=1, Copies:=1, preview:=False, Collate:=TrueEnd SubNext iEnd Sub Unload Me End Sub NextEnd Sub Loop End SubApplication.DisplayAlerts = True End SubApplication.DisplayAlerts = True End SubEnd Sub
End If End Sub
MsgBox strPCNameEnd SubBeep 880, 900End Sub[f2] = c 'neticenin yazdırılacağı hücreyi değiştirmek gerekebilir.. f2 yerine ist.hücre adresini girinEnd Sub
her iki koduda ilgili sayfanın kod sayfasına yazınız. End Sub
not: soru basliginizi seceken "makro hakkinda" gibi cok amator bir baslik secmektense, " bir kitaptaki sayfalari baska bir kitaba tasimak" gibi ilk okundugunda anlasilacak sorulardan secmek cok daha hizli cevap almanizi saglar. aklinizda bulunsun. makro forumunda bir sorunun "makro hakkinda" olmamasi zaten imkansizdir.
bu kod ile sayfa1 deki a1 hücresindeki veriyi diğer sayfalara atabilrsinNext xEnd SubApplication.Dialogs(xlDialogZoom).ShowEnd Sub Cells(i, 2) = UBound(Split(Cells(i, 1), ",")) + 1Next i [C3] = Round((Range("C3").Value) / 50000) * 50000 End Subbitti:End SubNext End Sub NextEnd Sub Next End SubApplication.Dialogs(xlDialogConsolidate).ShowEnd SubNextEnd Sub NextEnd SubNext cell End SubNext iEnd SubNext iEnd SubNext iEnd SubNextEnd SubNextEnd SubNextEnd Sub Next t End Sub Application.StatusBar = False End Sub Label12.Caption = SatirsayisiEnd Sub Range("A1").SelectEnd Sub Next rEnd SubRange("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.DeleteEnd SubNext rEnd Sub Set Hedef = Nothing End Sub ‘Formülü A1 e kadar=NSAT((A1-HAFTANINGÜNÜ(A1;2)-TARİH(YIL(A1+4-HAFTANINGÜNÜ(A1;2));1;-10))/7) Application.CommandBars.FindControl(ID:=1849).Execute End Sub Next End Sub ID:=1849, recursive:=True).ExecuteEnd Subl.List(ind2, 1) = araEnd SubHATA: End SubApplication.Dialogs(xlDialogFormulaFind).ShowEnd Sub Application.CommandBars.FindControl(ID:=1849).Execute End Sub
End Sub ComboBox1.RowSource = "sayfa1!a2:a" & bEnd Sub
Sheets("Liste").Rows(Cells(2, 1) & ":" & Cells(2, 1)).Delete Shift:=xlUp
Next CelEnd Sub Set alan = NothingEnd SubComboBox1.RowSource = "sayfa1!a2:a" & bEnd Suba = 1End Sub Call PlayWav(ThisWorkbook.Path + "\pir.wav")End Sub MsgBox Mark_BereichEnd Sub ActiveWorkbook.SaveCopyAs Filename:=Phad & "\" & Format(Now, "DD-MM-YY_hh-mm") & "_Backup_Beispielmappe_113.XLS"End SubApplication.CommandBars("Tools").FindControl(ID:=522).Enabled = TrueEnd SubSheets("sayfa2").PrintOut From:=1, To:=[a1].ValueEnd Su
NextEnd Sub
End WithEnd SubActiveCell.Formula = TextBox5End SubEnd Sub
MsgBox ErrorEnd SubApplication.CommandBars("Worksheet Menu Bar").Enabled = FalseEnd Sub Loop End SubNext End SubCommandButton5.Enabled = TrueEnd SubNextEnd SubCommandButton1.BackColor = CommandButton1.TagEnd Sub'Dosyayı kaydedin. Mesela Kucult.XLS ismini verin.'Dosyayı C:\Windows\Application Data\Microsoft\Excel\Xlstart klasörüne kopyalayın. Next End Sub OriginalCell.ActivateEnd Sub End IfEnd Sub LoopEnd Sub End WithEnd Sub ActiveCell.Value = NrEnd Sub End IfEnd SubEnd Sub
Next NumRangeEnd SubNext NumRange End Sub Application.EnableEvents = TrueEnd SubRange("c" & i).EntireRow.Hidden = TrueNextMsgBox "İŞLEM TAMAM"End Sub End IfEnd SubActiveWorkbook.SaveAs Filename:=(Chr)End SubActiveWorkbook.SaveAs Filename:=(Month) & (Year)End SubDblWert = Range("C10")End SubRange("D1").Value = WorksheetFunction.CountBlank(Range("C5:C15"))End Sub Range("C5:C20").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = TrueEnd SubEnd IfEnd SubEnd IfEnd Sub ActiveWorkbook.SaveAs Filename:="C:\Documents And Settings\ocamsul\Belgelerim\[a1]End Sub End IfEnd Sub lRet = SendCDcmd("set CDAudio door closed", vbNullString, 127, 0)End Sub Call mciExecute("Set CDaudio door closed")End SubvbString = BuffEnd Function End IfEnd Sub [A1] = CheckBox1 * 20 + 120 End SubEnd If End Sub
ActiveSheet.Cells(ComboBox1.ListIndex + 1, "k") = TextBox1.Value
ListBox1.RowSource = combobox1.text & "!A1:R15"
mesaj = MsgBox(ComboBox1.Value & " degerini girdiniz !", ,"Başlık")
End WithEnd SubEnd If End Sub Chr(82) & Chr(220) End Sub UndoCount = mcolUndoObjects.CountEnd FunctionEnd Sub
End Sub10: NextEnd SubEnd Sub
End Sub
End If End Sub MultiPage1.Visible = TrueIf ComboBox1 = "" Then MultiPage1.Visible = FalseLblStok1 = ActiveCell.Offset(0, 1)End SubEnd WithEnd Sub ComboBox1.Value = Sheets("Sayfa1").Cells([Sayfa1!a1:a65536].Find(ComboBox2.Value).Row, 2)End Sub
yazarsan seçtigin deger c1 hücresine aktarilirEnd IfNextSendMessage Combo1.hwnd, CB_SHOWDRPDOWN, True, ByVal 0&End SubMe.ComboBox2.ListIndex = Range("b2") - 1 End SubEnd SelectEnd Sub ComboBox1.Value, Range("D8:E11"), 2, False)End Sub Next ctrl End Sub NextEnd Function End With End Sub ComboBox1.ListIndex = 0 End Sub
ComboBox1 = ""End Sub MsgBox "EL İLE VERİ GİRİLEMEZ" End Sub End Sub
ComboBox1.RowSource = "LISTE!A1:A31"End SubOn Error GoTo 0 End Function ComboBox1 = EmptyEnd SubEnd WithEnd Sub Next iEnd Sub'UserForm Çalışırken Sayfaya Müdahale etmek istersen.'UserFormu tıklat ShowModal özelliğini False yap.
End If End Sub End If End Sub Next End SubNextEnd SubNextEnd SubCells(satir, 1).EntireRow.Delete End SubEnd IfNextcells(ListBox1.Column(5),"a").SelectEnd Sub
Cells(sat, "a").SelectEnd Sub
Worksheets("sayfa1").Range("a1") = ComboBox1.Value End Sub End WithEnd Sub End With End SubNext TabelleEnd Sub End WithEnd Sub Cells(x, 2) = Application.CommandBars(x).NameLocal Next xEnd IfEnd SubCommandButton1.Top = CommandButton1.Top + 20 End Sub
ActiveCell.SpecialCells(xlLastCell).Select
MsgBox "Mesaj boxlarda satır başı yapamıyorum." & vbCrlf & "Bunun bir yolu olmalı !" & vbCrlf & "Acaba vbCrlf kullanırsam ne olur?", vbinformation
CommandButton1.BackColor = CommandButton1.TagEnd SubEnd Sub
For Each cell In Range("A1", Range("a1").End(xlDown)) WorkbookRange("B10:B12").NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"End SubRange("A1").Value = Range("A1").Value + 1End Sub
End Sub End IfEnd SubEnd IfEnd Sub
sonhucre.select 'yazdığınızda bu hücre seçilecektir. End If End SubActiveWorkbook.SaveAs sFileNameEnd Sub Filename:="C:\Mahmut.xls"End Sub ActiveWorkbook.SaveEnd Sub Application.Dialogs(xlDialogFileSharing).ShowEnd SubEnd WithEnd SubActiveWorkbook.SaveEnd SubThisWorkbook.PrintOutEnd Sub End IfEnd Sub End If End SubNext r End SubActiveSheet.EnableAutoFilter = True End Subdevam: End SubActiveWorkbook.CloseEnd Sub NextEnd Sub MsgBox Application.Caption End SubNextEnd Sub Next sayfaEnd SubNext zEnd SubNext rEnd Sub End Sub
End Sub
End Sub
Rows("45:65536").Hidden = False End Sub CommandButton1.Caption = "Sorgu Gir"End Sub
MsgBox "A" & Chr(10) & "B" & Chr(10) & "C" & Chr(10) & "D" & Chr(10) End SubMsgBox "A" & Chr(13) & "B" & Chr(13) & "C" & Chr(13) & "D" & Chr(13) End SubNextEnd Sub ActiveSheet.Protect "abc"End SubTarget.NoteText "Die Zelle wurde am " & Format(Date, "dd.mm.yy") & " um " & Format(Now(), " hh:mm:ss") & " durch " & ActiveWorkbook.BuiltinDocumentProperties(7).Value & " geändert."End SubSheets("sayfa3").SelectEnd SubActiveCell = Date & ", " & TimeEnd Sub
End SubNext RowEnd Sub End IfEnd SubEnd SelectEnd Sub End If End Sub End If End Sub End IfEnd SubEnd Sub
If Target.Address = "$C$18" Then Sheets("Sayfa2").SelectEnd Sub End WithEnd Sub
Application.Run "kitap2.xls!makro1"
vbInformation, "Monitor Size (width x height)"End SubMsgBox ("Çözünürlük Pixel Değerleri: " & GetSystemMetrics(0) & " x " & GetSystemMetrics(1))End SubApplication.EnableEvents = TrueEnd SubEnd SelectEnd SubNextEnd SubWendEnd If Worksheets(1).ShowDataFormEnd SubActiveSheet.ShowDataFormEnd Sub
End Function Next i End SubCel1.Copy Cel2End SubRange("IV2").Value = ActiveCell.ValueEnd SubEnd Sub
pir2.NumberFormat = pir1.NumberFormatEnd Sub Application.EnableEvents = TrueEnd Sub MsgBox " The total is " & tEnd Sub
'bu kodda b değişkenine A1:A50 arasındaki değerlerin toplamı atanmıştır.Application.Dialogs(xlDialogFormulaReplace).ShowEnd SubEnd If End Sub End IfEnd SubEnd IfEnd SubRange("IV2").Value = ActiveCell.Value End SubApplication.QuitEnd SubApplication.Run "c:\klasoradi\kitapadi.xls!makroadi"
Run ("Kitap1.xls!Module1.MAkro1")End Subuserform2.buton1_click End Sub
NextEnd Sub'retval = SetVolumeLabel("a:\", vbNullString)End SubformatEnd Sub End IfEnd Sub
End SubApplication.ScreenUpdating = TrueEnd SubWorksheets(Array(1, 3, 5)).SelectEnd SubMsgBox aEnd SubMsgBox aEnd SubLoop While Not IsDate(d_tarih)MsgBox (WeekdayName(Weekday(d_tarih, 0), False, 0) + " " + "Günü Doğmuşsunuz.")DollarText = Trim(sTemp) & " and " & sCentsEnd Function 'DollarText[b13].SelectEnd SubSelection.PrintOutEnd SubNextEnd SubNextEnd SubMsgBox SayiEnd Sub NextEnd Subbaşka bir yazım şekli de; range("c2:c" & range("c65536").end(xlup).row).selectRange(myRange).SelectEnd SubMsgBox ekleEnd Sub ActiveSheet.UsedRange.SelectEnd SubEnd If End Sub "sayfaları kopyalayabilirsiniz. ", vbInformation, "UYARI")End Sub "sayfaları kopyalayabilirsiniz. ", vbInformation, "UYARI")End Sub Next iEnd SubÇalışma sayfası adını yazdırmak için;=SAĞDAN(HÜCRE("DosyaAdı");UZUNLUK(HÜCRE("DosyaAdı"))-MBUL("]";HÜCRE("DosyaAdı");1))MsgBox fEnd Sub
Application.CommandBars.ActiveMenuBar.Enabled = False
If .Execute() > 0 Then End IfEnd Subcomsonuc.text="ARAMA BİTTİ"End SubEnd IfEnd SubEnd If End SubEnd If End Sub CreateMenuEnd Sub CommandBars("Neues Menü").Visible = TrueEnd SubEnd WithEnd Sub Application.CommandBars("Worksheet Menu Bar").Enabled = TrueEnd SubApplication.CommandBars(1).Enabled = TrueEnd SubMsgBox sEnd Sub Loop End SubThisWorkbook.SaveEnd Sub ActiveWorkbook.Close End Sub ActiveWorkbook.Close End SubLoopEnd SubNext tbEnd SubMsgBox sEnd Sub Kill "C:\Documents And Settings\pir\Belgelerim\pir.xls"End SubMsgBox sEnd Sub MsgBox DosyaSistemiEnd Subf = ds.MoveFile("D:\ExcelÖrnekleri\Move.xls", "C:\")End SubMsgBox fEnd Sub ActiveWorkbook.Save End SubEnd IfEnd SubDateisuche Laufwerk, DateienEnd Subxl.Application.Workbooks.Open Range("K1")End Sub End WithEnd Sub End IfEnd Function MsgBox Now()End Sub Application.CommandBars("Worksheet Menu Bar").Enabled = TrueEnd Sub
hata:Image1.Picture =loadpicture("")RmDir "C:\pir\xp\beyza" End SubEnd If End Sub Close #1 End Sub MsgBox ("You have " & exdate - Date & "Days left")End Sub Next iEnd Sub ActiveWorkbook.Save End Sub Application.ScreenUpdating = TrueEnd SubEnd IfEnd Sub ActiveWorkbook.Close TrueEnd SubMsgBox "En son açılış tarihi: " & LastOpen MsgBox "Dosyayı en son açan kullanıcı: " & Application.UserName Range("A1").SelectEnd SubEnd If End SubActiveWorkbook.SaveAs sFileNameEnd SubMsgBox "Dosyayı en son açan kullanıcı: " & Application.UserName
Next k End Sub Next TrimestreEnd SubNext iEnd Suba = Mid(Date, 3, 1)DTPicker1.Value = Format(Date, "dd" + a + "mm" + a + "yyyy")[B3] = DTPicker1.ValueEnd SubDTPicker1.Value = Format(Date, "dd" + a + "mm" + a + "yyyy")Date = sondate
Application.StatusBar = Sh.Name & ":" & Target.Address End SubActiveWindow.Caption = Target.Address End SubEnd If End SubLoopEnd SubApplication.Dialogs(xlDialogOptionsEdit).ShowEnd Sub[A1].Value = Application.Sum([E1:E15])End Sub Next i End Sub Application.CalculateEnd SubNext End Sub End If End SubEnd IfEnd SubIf Target.Range("A1") >= 1 Then MsgBox "Aşkından Selamlar"End Sub If Target = Cells(1, 1) Then Cells(2, 1) = NowEnd Sub 'alternatif ŞİMDİ() or Bugün or TimeMsgBox "Selam"End SubLoopEnd SubEnd IfEnd Sub Application.CutCopyMode = FalseEnd Sub
=EĞER(A1="OCAK";OCAK!A1;EĞER(A1="ŞUBAT";ŞUBAT!A1;EĞER(A1="MART";MART!A1;EĞER(A1="NİSAN";NİSAN!A1;EĞER(A1="MAYIS";MAYIS!A1;EĞER(A1="HAZİRAN";HAZİRAN!A1))))))+EĞER(A1="TEMMUZ";TEMMUZ!A1;EĞER(A1="AĞUSTOS";AĞUSTOS!A1;EĞER(A1="EYLÜL";EYLÜL!A1;EĞER(A1="EKİM";EKİM!A1;EĞER(A1="KASIM";KASIM!A1;EĞER(A1="ARALIK";ARALIK!A1))))))Next SeitenNummerEnd Sub If TopCell.Row = 16384 And BottomCell.Row = 1 Then ActiveCell.Select Else Range(TopCell, BottomCell).SelectEnd Sub If LeftCell.Column = 256 And RightCell.Column = 1 Then ActiveCell.Select Else Range(LeftCell, RightCell).SelectEnd Sub End IfEnd Sub
'"Eğer formül hatalı sonuç veriyorsa hücreyi boş bırak, değil ise formül sonucunu yazdır." Columns("A:F").EntireColumn.AutoFitEnd SubApplication.Dialogs(xlDialogInsert).ShowEnd SubApplication.Dialogs(xlDialogAddinManager).ShowEnd SubNext aEnd SubEnd IfEnd SubCall ChangeScreenResolution(1024, 768) 'buradaki değerleri değiştirerek ayarlayabilirsiniz.End SubCall ChangeScreenResolution(1024, 768)End Sub End WithEnd SubDebug.Print ScreenResolution()End Sub End IfEnd SubReleaseDC 0, PixEnd SubEnd WithEnd Sub Sheets("sayfa2").SelectEnd SubActiveWorkbook.SendMail Recipients:="[email protected]"End Sub Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=TrueEnd Sub Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Select End SubEnd IfEnd SubRows.SpecialCells(xlCellTypeLastCell).Rows.ActivateEnd Sub
End Function MsgBox iEnd SubMsgBox Cells.Find("*", searchdirection:=xlPrevious).RowEnd Sub
End Sub
MsgBox ActiveWorkbook.BuiltinDocumentProperties(12).Name & ActiveWorkbook.BuiltinDocumentProperties(12)End Sub End IfEnd Sub Application.OnKey "~" End Sub Application.MoveAfterReturn = True End Sub Application.OnKey "~", "Macro1" End Sub If Target.Row > 4 Then Cells(1, Target.Column + 1).ActivateEnd Sub End Sub
Application.ScreenUpdating = TrueEnd Sub
ActiveSheet.StandartWidth=25 - ->Etkin işlem sayfasının genişliğini 25 yapar.
Yapmanız gereken hazırladığınız UserForm'u ve ilişkili modülleri File menüsünden Export etmek ve daha sonra Visual Basic'i açarak Import etmeniz yeterli olacaktır. Artık File menüsünden Make Exe komutunu tıklayarak exe halinde derleyebilirsiniz.
If Cells(x, 4).Value = "AGR" or Cells(x, 4).Value = "DAL" Then
Cells.MergeCells = False
Application.CommandBars("Menü Adı").Visible = True 'False de gizler
application.quit
NextEnd SubApplication.Dialogs(xlDialogInsertNameLabel).ShowEnd Sub
Application.Dialogs(xlDialogActivate).ShowEnd SubEnd Sub
End SelectEnd Sub
Burada listeniz a ve b surunlarında olduğunu ve devamlı şekilde liste sayfasına aktaracağınızı hesap ederek yapılmıştırKill MyFileEnd Sub
End Sub End WithEnd Function Next iEnd Sub Range("A1").SelectEnd Sub
End Sub LoopEnd Sub Application.ScreenUpdating = TrueEnd Sub MsgBox "Kısayol oluşturuldu" End Sub Shell "command.com /c dir c:\*.xls /s/b >C:\ajeter\dirxls.xls", vbHideEnd Sub‘ ThisWorkbook.SaveAs Filename:=fEnd SubEnd If End SubName "c:\Test.xls" As "c:\aaa\Test.xls"End SubApplication.Quit 'Excel Uygulamasından Komple ÇıkEnd Subdevam: End Sub
End SubEnd Sub
Tools > Protection > Protect and Shared Workbook : Protect Shared Workbook = Sharing with track changes , seçeneği aktif edilirse Aynı dosyaya birden çok kullanıcı Read Only olmadan bağlanabilir ve Save edildiği anda diğer kullanıcıların Save ettikleri görülebilirZoomZOrderDelMyMenuEnd Sub
End SubNextEnd SubDaha fazla veri aktarılacaksa 14'den sonra ilave edin..Ayrıca bu aktardığın verileri herhangi bir proğrama adapte edeceksen karakter sayılarına dikkat et.Kolay Gelsin.
NextEnd Sub End IfEnd SubThisWorkbook.ActivateEnd SubEnd IfEnd Sub
BH = UCase(BH)End Function Set MenuObject = NothingEnd Sub
Görüleceği üzere, Excel in kolaylıklarını (özelliklerini) daha verimli kullanırsanız, Excel de sizi hamallıktan (rutin işlerden) kurtaracaktır
End Sub
ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomaticEnd Subhata1:End Sub devam: End Sub
Application.Visible = FalseEnd SubApplication.Visible = TrueEnd SubEnd If End Sub
Application.Quit
cbBar.DeleteEnd SubMsgBox ("Microsoft Excel" & " " & myvers)End Sub Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=TrueEnd Sub
e1 hücresine eğer(c2<>"";c2-e2;"") da yazıp sürükleyin
'**********************************************************End SubShell "C:\WINDOWS\EXPLORER.EXE /n,/e,D:\FichXls", vbMaximizedFocusEnd Sub End If End Sub MsgBox "aaa F9 tuşuna bastın"End SubMsgBox "aaa F9 tuşuna bastın"End Sub
End Sub combo.BackColor = vbRedEnd SubEnd IfEnd SubBlockInput False End Sub ShowCursor True End SubSetCursorPos 220, 200End SubEnd IfEnd SubEnd IfEnd Sub End WithEnd SubActiveWorkbook.CloseEnd Sub Next End SubIf pir Then Cancel = True End Sub End If End SubApplication.GetSaveAsFilename End Sub
End Sub
CommandButton1.Caption = ""End Sub Set shp = NothingEnd Sub Worksheets("Sayfa1").AutoFilterMode = FalseEnd SubEnd Sub
Next iEnd Function Application.Goto Reference:="Sum_color"End SubEnd SelectEnd Function Next wkbkEnd Function Application.ScreenUpdating = True End Sub Application.ScreenUpdating = True End Sub
Günlük.Show End Sub
End SelectEnd Sub
End Sub Application.DisplayAlerts = TrueEnd Sub
Cells(1, 1) = TextBox1.ValueEnd Sub
UserForm2.Show End SubEndEnd Sub
UserForm1.Caption = "www.excel.web.tr"End SubMsgBox ("Formül yok !!!"), vbCritical, "Başvurulan hücrede" End Sub'**********End Sub Next iEnd Sub Range(ActiveCell.Address & ":A" & [B65536].End(xlUp).Row).FillDown End Sub Application.Calculate End Sub
Application.DisplayFormulaBar=False - -> Formül çubuğu kaldırılır.
Büyük
SHFormatDrive hwnd, 2, SHFD_CAPACITY_DEFAULT, SHFD_FORMAT_QUICK
NextEnd SubApplication.ScreenUpdating = TrueEnd Sub
Next x End SubNext cEnd Sub
End Sub
Range("a1").Select End Sub NextEnd SubEnd IfEnd SubMsgBox " Formül silmek yasak kardeşim"End Sub ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=TrueEnd Sub Resume AufraeumenEnd SubNoWBorWS:End SubApplication.CutCopyMode = FalseEnd Sub ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=TrueEnd Sub Application.ScreenUpdating = TrueEnd SubLabel14.Caption = Application.WorksheetFunction.VLookup(ara, alan, 3, 0)End Sub MsgBox fEnd Sub ActiveWorkbook.SaveCopyAs FileName:=StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDateiEnd SubMsgBox fEnd SubApplication.Dialogs(xlDialogOptionsTransition).ShowEnd SubApplication.Dialogs(xlDialogOptionsGeneral).ShowEnd SubEnd Sub
Set p = NothingEnd Sub Set p = NothingEnd SubCells(1, 23) = (z + 100) / 100End SubEnd If End SubApplication.Dialogs(xlDialogFormulaGoto).ShowEnd Sub End If End SubNext wksEnd SubNext wshEnd SubA1 Hücresine Bu Sayfa Gizlidir. yazısının yazıldığını göreceksiniz.. End SubEnd If End Sub'Bu işlemlerin gözükmemesi için kodlarınız başına application.screenuptading = false
Unload MeEnd SubApplication.Dialogs(xlDialogDisplay).ShowEnd SubApplication.Dialogs(xlDialogDemote).ShowEnd SubActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources End Sub ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources End SubMsgBox gunEnd SubMsgBox Application.Weekday(CDate(TextBox1), 2)End Sub MsgBox "Hello from " & ButtonGroup.NameEnd SubApplication.Goto Reference:=Range("Q6"), Scroll:=TrueEnd Sub If Target.Address = "$A$1" Then Application.MoveAfterReturn = False MsgBox Prompt:=MyNote, Title:="Korumalı Sayfalar"End Sub End IfEnd SubEnd IfEnd FunctionEnd Sub
EndEnd Sub
on error resume next
Range(“A1:E10”).Cut Selection.Cut
Range(“A1:E10”).Select
Set myfso = NothingEnd SubValRetour = Shell("C:\WINDOWS\RUNDLL32.EXE shell32,SHFormatDrive", 1)End SubEndEnd Sub Me.Move Application.Width / 2 - Me.Width / 2, Application.Height / 2 - Me.Height / 2End Sub Application.DisplayCommentIndicator = xlCommentIndicatorOnly End Sub Me.Move Application.Width / 2 - Me.Width / 2, Application.Height / 2 - Me.Height / 2 End SubHarfHarf Me End SubRange("A5").SelectEnd Sub End Select End Sub End Select End Sub
ExitProc: End Sub MsgBox "Korumalı Hücreye mesaj yazamazsın" End Sub GoTo git End SubApplication.Dialogs(xlDialogGoalSeek).ShowEnd Sub Application.Goto reference:=Range("Sayfa1!A1") 'You can change the address to a range nameEnd SubEnd Function
'Call makro_bei_zeitEnd Sub'Sayfanın kod bölümüneOption ExplicitCall auto_openEnd SubNext colEnd Sub procedure:=CallMakro, schedule:=FalseEnd SubNext iEnd Sub'Sayfa içerisindeki başlıklar excel'in kendi form ile birlikte'size sorulacak , bu sayede pratik bir şekilde veri girişi sağlanabilir.MsgBox "Fertig ", vbOKOnly, "© K.-M. Buss"End SubNext CountEnd Sub NextEnd SubEnd IfEnd SubTextBox1.MaxLength = 8End SubMsgBox "aaaaaaaaaaaaaaaaaa"End Sub Next End Sub Next End Sub=G1+8-weekday(G1;2)'=G1+8-HAFTANINGÜNÜ(G1;2)
End Sub Application.ActivateMicrosoftApp Index:=0End SubPublic strCalcCaption As String
Application.Dialogs(xlDialogCalculation).ShowEnd SubApplication.Dialogs(xlDialogOptionsCalculation).ShowEnd SubApplication.Dialogs(xlDialogAlignment).ShowEnd SubBeepEnd Sub Call Shell("hh " & ThisWorkbook.Path & "\varCheck.htm", vbMaximizedFocus)End SubEnd Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1End Sub
ActiveCell.Formula = TextBox1 End SubEnd Sub
Application.Dialogs(xlDialogDeleteFormat).ShowEnd SubApplication.Dialogs(xlDialogFontProperties).ShowEnd SubMsgBox "Günaydın"End Sub MsgBox "suzunkopru" End Sub
Range(“D2:E5”).Clear
Columns("H").Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart
TextBox1 = Sheets("Sayfa2").Range("A21").Comment.Text
aralığı ayarlayabilirsin. Tek şart daha önceden elle A1 A20 arasına içi boş olan bir açıklama eklemen.(Ama içi boş olsun.Başlığı dahi olmasın)A1 ile A20 arasındaki herhangi bir hücrede değişiklik yaptığın an, o hücreye ait açıklamada, o hücrede yaptığın değişiklik "tarih / eğişiklik" şeklinde kendiliğinden eklenir. Set myRange = NothingEnd SubApplication.EnableEvents = TrueEnd SubEnd IfEnd Sub
end if End WithEnd Sub End IfEnd Subgereksiz 1200 işlem yaptığını görmüşünüzdür.
LoopEnd Sub
End WithEnd Sub On Error Resume Next Cells(N, 1) = "'" & ActiveWorkbook.Names(N).NamThisWorkbook.SaveAs FileName:=Worksheets(1).Range("A1")End SubRange("A1:A3").Copy Destination:=ActiveCellEnd SubSheets("Sayfa1").Range("A1:A3").copy Destination:=ActiveCellEnd SubApplication.Dialogs(xlDialogCellProtection).ShowEnd Sub End IfEnd Sub
If şifre <> "a" Then [e2].SelectEnd SubIf şifre <> "a" Then [a2].SelectEnd SubmyMultiAreaRange.SelectEnd Sub
Worksheets("Sayfa1").PrintOutEnd Sub---------------------------------------------------- txtceksirano.Value = WorksheetFunction.Count(sheets("veriler").Range("A1:A65000")) + 1
On Error GoTo 0End FunctionActiveCell.Offset(3, 2).SelectEnd SubApplication.StatusBar = FalseEnd Sub ActiveCell.Offset(1, 0).SelectLoopEnd If End Sub "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")End Function
A3 hücresine = A2+EoMonth(A2;1) ve bu şekilde devam edildiğinde istenilen çözüm bulunmuş oluyor.Worksheets("Sayfa1").OnEntry = "" End SubIf Target <> "" Then Sheets("" & [a4]).SelectEnd Sub
End SubTarget.Value = WorksheetFunction.Lower(Target.Value) End Sub Next i End subMsgBox "Satır Silme İşlemi Tamamlanmıştır." End SubMsgBox Len(pir)End Subdur = False End SubLoopEnd Sub Call AyarEnd SubApplication.OnTime Now + TimeSerial(0, 0, 1), "clock"End Sub Application.OnTime Now + TimeValue("00:00:01"), "Heure", , FalseEnd Substopit = TrueEnd SubEnd If End Sub Next iEnd Sub
Range("A1").SelectEnd Sub End Function End If End Sub
End Sub
Sheets(1).PageSetup.CenterFooter = Sheets(2).[A1]
Range("A1").Formula = Round(("A1 HÜCRESİNDEKİ FORMÜL TIRNAKLAR OLMADAN") / 50000) * 50000
[A1] = "=ROUND(" & [A1].Value & "/50000,0)*50000"
LoopEnd SubLoopEnd SubRange(“D3”).Font.Name=”Arial” Range(“D3”).Font.Bold=True gibiEnd Sub
End Sub
kodunu eklerseniz, a sütununa bahsettiğiniz formatta girdiğiniz her tarih kısaltmasını istediğiniz formata çevirir. NextEnd Sub 'Böylece sözkonusu hücrenin renk kodunu yazdırmış olduk. 'Şimdi bu kolon üzerinden istediğin renk koduna göre filtre yapabilirsin Sheets("Sayfa1").PrintOut From:=1, To:=[A1].Value ‘TextBox1.value olursa textboxtali sayı kadar çıktı alınırEnd SubNextEnd SubActiveCell = Application.Round(ActiveCell, -3)End Sub NextEnd Sub ActiveCell = Application.Ceiling(ActiveCell, 1000)End Sub Next iEnd FunctionActiveCell = Application.Floor(ActiveCell, 1000)End SubActiveSheet.Columns(y).AutoFitEnd SubNext iEnd SubMsgBox MesEnd Sub
Next End SubNext End Sub ActiveCell.FormulaR1C1 = strReverseTextEnd SubBiraz özgün bir çözüm oldu, umarım işine yarar.Başka kullanıcılardan farklı öneriler de gelebilir sanırım.MsgBox "İŞLEM TAMAMLANMIŞTIR.", vbInformationEnd Sub Set RaBereich = NothingEnd Sub Range("A1").SelectEnd SubEnd IfEnd Sub
End WithEnd SubRange("A3").Formula = Round((Range("a1").Value + Range("a2").Value) / 50000) * 50000 End Sub
Next i End Sub Next fCell End SubEnd Sub
Range("D7").ActivateEnd SubNextEnd SubMaPlage.Value = 100End SubIf Target.Column = 5 Then Target.Offset(1, -4).SelectEnd SubEnd Sub
End IfEnd Sub Application.CutCopyMode = FalseEnd Sub SaveRngAsJPG Rng, Fn End Sub Next CelEnd SubNext wksEnd Sub Range("A1").Select End Sub Next rNameEnd SubEnd WithEnd SubMsgBox LigneEnd Sub Range("H1:A2").PrintOutEnd Sub End Select End Sub End IfEnd Sub
End Subhucrerenkkodu = Range("A1").Interior.ColorIndex End Sub
Range(“C3”).Formula =”=D3+D4” - ->Formul atanır.
Range (“B5”).Value=36 - -> B5 hücresine 36 atanır.
Range("A1").NumberFormat = "@"
#REF!
Range("A2").EntireColumn.SelectEnd SubLoopEnd SubActiveCell.EntireRow.SelectEnd SubEnd WithEnd SubEnd IfEnd Function
Not: hücrenin yazı fontu wingdings 2 olmalı.End If End SubEnd If End Sub End IfEnd Sub
'Valide la formuleEnd Sub Range("A4") = "Wert aus der Datei " & datnam & ".xls :"End Sub Worksheets("Sayfa1").Range("D6").Formula = "=SUM(D2:D5)"End Sub
makroadi() End Sub ActiveSheet.Shapes("Rectangle 1").Height = Range("A1") / 10 * 3.2 * 72 / 2.54 End Sub Next rngZelleEnd Sub End IfEnd SubApplication.GoTo Reference:=ActiveSheet.Range("F1"), Scroll:=TrueEnd SubRange("A1").Value = pirEnd Sub End With End Sub
MsgBox "İŞLEM TAMAMLANMIŞTIR.", vbInformationEnd SubApplication.EnableEvents = TrueEnd SubEnd SelectEnd Sub End IfEnd SubIf Target.Address(False, False) = "A1" Then UserForm1.Show End Sub End IfEnd Sub End WithEnd Sub Selection.Font.Bold = TrueEnd SubToutePlage.Interior.ColorIndex = 5End SubEnd IfEnd Sub
Range("A1").ActivateEnd SubIf [a10].Value <> [c10].Value Then MsgBox ("Girdiğiniz rakamlar farklı") End SubNext amountEnd Sub'Eğer A1 >= 2 ise ve [A1].Value <= 3 ise [B1]=3 yaz End Sub msgbox "hücrede + işareti yok"End IfActiveSheet.Name = NewNameEnd SubEnd If End SubEnd Sub
End If End Function
End If End SubMsgBox (IIf(IIf(Range("I2").Value = Range("E2").Value, Range("G2").Value - Range("F2"), (Range("G2").Value - Range("F2").Value) - Range("A500").Value) > 0, IIf(Range("I2").Value = Range("E2").Value, Range("G2").Value - Range("F2"), (Range("G2").Value - Range("F2").Value) - Range("A500").Value), 0)) End Sub
End If Bu ilk sorunuza cevap olabilir. Çalışmanız ne şekilde tam bilemiyorum ama sanki Koşullu Biçimlendirme daha çok işinizi görür gibi geldi bana. C sütununu seçip Biçim>Koşullu Biçimlendirme>eşit değil>=a1 deyip biçim ayarından da rengini değiştirseniz hem eşit olmayan hücreyi hem de toplamın eşit olup olmadığını görürsünüz. Üstelik Tamam'a tıklama olmadan hemen düzeltme yapabilirsiniz.
Unload Me End Sub Loop While Gun <= Bitis End Sub Next i End Sub
End SubListBox1.RowSource = adresEnd Sub Range("A1").SelectEnd SubEnd Sub
'A1 dolu ise A2 yi seçecektir, oda dolu ise A3 ü ...'Kaydınızı sıra ile kaydedebilirsiniz.NextEnd SubNextEnd SubNextEnd SubIf Target.Column = 1 And IsEmpty(Target.Next) Then Target.Offset(0, 2).SelectEnd Sub If Target <> 0 Then Target.Offset(0, 4).SelectEnd SubEnd If End Sub MsgBox (sonuc)End SubMsgBox (sonuc)End Sub MsgBox (sonuc)End Sub MsgBox WorksheetFunction.Index([ADI], 2)End SubActiveWorkbook.CloseEnd Sub bText & Chr(13) & bNumber, , "Result from INPUT-boxes"End Sub ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=PassWFormEnd SubEnd IfEnd Sub Range("A2:" & [A65536].End(xlUp).Address).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUpEnd SubCells(1, 23) = (z + 100) / 100 End SubMsgBox ("Hello ") & MyInputEnd Sub6 - ((jahr + jahr \ 4 + d + (d > 48) + 1) Mod 7)End Function Range(k).SelectEnd SubActiveWindow.SelectedSheets.PrintOut Copies:=kaç, Collate:=TrueEnd SubActiveWindow.SelectedSheets.PrintOut From:=ilk, To:=son, Copies:=Kopyasayisi, Collate:=TrueEnd SubCells(1, 1) = InputBox("Bitte geben Sie den Wert ein, der in Zelle A1 geschrieben werden soll:")End SubEnd Sub
10 MsgBox "sayfa bulunamadı"End SubSheets(Sayfa).SelectEnd SubHandleError:End SubEnd If End Sub‘16 An error value, e.g. #N/A ‘64 An array of values End If End Sub End IfEnd Sub Set IEApp = NothingEnd FunctionSet IE = NothingEnd Sub‘şifre içinCall Shell("c:\windows\system32\rasdial.exe " & Chr$(34) & "ttnet" & Chr$(34) & " " & "sirenko" & " " & "sifre")
End FunctionEnd Function
ActiveWorkbook.CloseEnd SubNext i
Shapes(j).Delete Next j
End If end subend sub
Range("f7").PrintOut Copies:=1End Sub End If End Sub Application.Goto Reference:="insertrow"End Sub Application.OnTime TimeValue(beepat), "BeepMe"End Sub BeepEnd SubThisWorkbook.Sheets("Feuil1").PrintOutEnd SubMsgBox "makro1 çalıştı"End SubEnd IfEnd SubApplication.Goto Reference:=Worksheets("Feuil1").Range("A154"), Scroll:=TrueEnd Sub
If Sheets(a).Name <> "GELİR İCMAL" And Sheets(a).Name <> "ANASAYFA" Then Sheets(a).Visible = xlVeryHiddenNextWorksheets("" & i).SelectEnd Sub MyShell.Run "http://www.excelerator.de"End Sub
Unload Me End Sub Unload Me End SubNext End SubNext End SubApplication.ActivePrinter = "\\PRINTSERVER\HP LaserJet 1100 (MS) on Ne02:" End Sub End Function'=Isgunu(A1;B1)Sheets.Add.Name = SayfaadiEnd SubSheets(Sheets.Count).Name = Format(Date, "dd mm yy")End SubNext End Sub
End SubCall Sleep(1000)End Sub End IfEnd SubApplication.Dialogs(xlDialogFunctionWizard).ShowEnd Sub jpgekle.DeleteEnd SubMsgBox mycountEnd SubMsgBox (say) End Subhafta = ((tarih + 7 - Weekday(tarih, vbMonday)) - DateSerial(Year(tarih), 1, 1) + 1 + ek) / 7 End Functionhafta = DatePart("ww", tarih, vbMonday, vbFirstJan1) MsgBox "Bugün: " & Date & " --> Yılın " & hafta & ". Haftası" Kwoche = ((d - t - 3 + (Weekday(t) + 1) Mod 7)) \ 7 + 1End FunctionMsgBox gunEnd SubMsgBox myRow & " , " & myColEnd SubActiveCell.Value = yazEnd Sub Next cellEnd Function Loop End SubMsgBox "oldu" End SubCancel = True End Sub Windows("notisleme.xls").ActivateEnd Sub
Kodlar çalıştırılmadan önce yapılması gereken ise; kullanıcının C:\Test.xls ve C:\UserForm1.frm dosyalarını kendi bilgisayarlarında, kodlarda belirtilen yerlere yerleştirmiş olmasıdır.Range("C2").SelectEnd SubEnd IfEnd Sub
"Nous sommes le " & DateJourEnd Sub Next End Sub ThisWorkbook.Close Saved = TrueEnd SubRange("A1") = Now 'Select any cell you wantEnd Sub If pir = vbNo Then Cancel = TrueEnd SubWorksheets("Tabelle1").PageSetup.LeftFooter = "Stand: " & Format(Date, "DD.MM.YYYY")End SubApplication.QuitEnd Sub 'oder ThisWorkbook.Close False End Sub ThisWorkbook.Close Saved = TrueEnd Sub ActiveWorkbooks.Close SaveChanges:=FalseEnd SubEnd If End SubEnd IfEnd SubEnd IfEnd SubEnd IfEnd Sub Next cEnd SubApplication.Dialogs(xlDialogBorder).ShowEnd Sub Application.OnTime EarliestTime:=DaA, Procedure:="Schließen", Schedule:=FalseEnd Sub End IfEnd Sub
Application.CellDragAndDrop = True End SubApplication.CellDragAndDrop = False End SubRange("G12") = totalEnd SubEnd If
Workbooks("kitap1.xls").CloseEnd SubEnd SelectEnd Sub End IfEnd SubActiveWorkbook.SaveAs Filename:="C:\MyFile.xls"End Sub
Sheets(1).[A1] = "Dernière modification le " & Format(Date, "dd/mm/yyyy")End Sub If a = vbNo Then Cancel = TrueEnd Sub
MsgBox "Makrolar gizli!!" End SubApplication.DisplayAlerts = TrueEnd Sub End IfEnd SubMsgBox ActiveWorkbook.NameEnd Sub MsgBox Application.Caption End SubMsgBox FileLen(ThisWorkbook.FullName) & " octets"End Sub "This Workbook Filename:"End SubActiveWorkbook.BuiltinDocumentProperties("Last Save Time").ValueEnd SubEnd Sub
End If End Sub End If End Sub
ActiveWorkbook.SaveCopyAs FileName:=StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDateiEnd Sub Next fEnd Sub Workbooks.Open fnEnd SubSheets("Sayfa1").Range("A1").Value = ThisWorkbook.FullNameEnd SubActiveWindow.Caption = "http://www.excel-lex.de.vu: Das EXCEL-2000-Lexikon ©2003 K.-M. Buss"End SubEnd WithEnd Sub Sayfa1.Activate End Sub Worksheets("Sheet2").Range("A1") = Worksheets("Sheet2").Range("A1") + 1End SubWorksheets("Tabelle1").PageSetup.LeftFooter = "Stand: " & Format(Date, "DD.MM.YYYY")End Sub End IfEnd Sub ActiveWorkbook.SaveAs fnEnd SubEnd WithEnd SubActiveWindow.WindowState = xlMinimizedEnd Sub SaveSetting "XYZ Corp", "Budget", "Opened", LastOpen End Sub End IfEnd Sub,ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName End Sub End With End Sub End With End Sub Cancel = TrueEnd Sub Next wksEnd Suba = Shell("C:\WINDOWS\Explorer.exe c:\windows", vbNormalFocus)End Sub Set f = ds.GetFolder("D:\ExcelÖrnekleri")End SubEnd IfEnd SubMsgBox s, 0, "File Access Info"End Subf = ds.MoveFolder(dosya, dosya2)End Subds.CreateFolder "C:\SXS\Deneme"End Sub
Vba penceresinde kod yazarken örneğin Worksheets yazacaksınız, ancak bunu açılır pencereden seçmek için CTR + J yi, önerme veya tamamlama için ise CTR + ARA ÇUBUĞU'nu kullanabilirsiniz
CTRL+C CTRL+V İLE KOPYALA YAPIŞTIR İŞLEMİNİ YAPABİLİRSİNİZ
Label3 = Format((Val(Label1) + Val(Label2)) / 2, "0.00")
Label1:Captioni = Now
Label3 = Format((Val(Label1) + Val(Label2)) / 2, "0.00")
MsgBox aEnd Subds.DeleteFolder "C:\SXS\Deneme"End SubMkDir "c:\Alihan" End Sub Loop End Sub ds.CopyFile "D:\ExcelÖrnekleri\*.xls", "C:\SXS"End SubMsgBox "Diese Mappe hat eine Grösse von " & FileLen(sFileName) & " kB"End SubNextEnd Sub End IfEnd Function End IfEnd FunctionMsgBox i - 1End SubEnd IfEnd Sub UserForm1.Show 0End Sub
ActiveCell.Formula = [b3].Text & ":\" & [c3].Text & "\" & [d3].Text & "\" & [e3].Text & "\[" & [e4] & ".xls]" & [e5] & " '!" & [e6]End Sub
End IfEnd Function End IfEnd FunctionApplication.Dialogs(xlDialogCustomizeToolbar).ShowEnd Sub ActiveCell.SpecialCells(xlLastCell).SelectEnd Sub
End WithEnd SubEnd WithEnd Sub MsgBox "Üzgünüm yapmak istediğiniz işlem yasaklanmıştır.!", , "www.kod.gen.tr" End Sub activesheet.protect "1234" End Sub Sheets("Sayfa1").Protect Password:="sifre" End Sub End IfEnd SubEnd Sub
Application.Dialogs(xlDialogConditionalFormatting).ShowEnd SubMsgBox sEnd SubApplication.Dialogs(xlDialogInsertHyperlink).ShowEnd Sub Range("A1").Select End Sub If Cells(x, 3) = ComboBox1.Text Then Rows(x).DeleteNext
'Ayrıca Textbox2'nin Properties kısmında bulunan "PasswordChar" bölümüne "*" (yıldız) işareti koyarsanız girilen parola ekranda "*****" şeklinde görünecektir. MsgBox ("Aktuell angemeldeter User ist: " & ActiveUserName)End Sub MsgBox Left(Buffer, BuffLen - 1)End Sub End WithEnd SubIf a >= 90 And a <= 100 Then Puan = "A1" End Function If LCase(a) = LCase("a") Then Sutun2 = 1End Function
="Sayfa " & nsat(B1/50) End SelectEnd Function z = WorksheetFunction.Substitute(z, ".", ",") TextBox1 = z C1 hücresine girilecek formül;=(A1-TAMSAYI(A1))*100
End SubLabel1.Caption = Format(Now, "dddd d mmmm yyyy hh:mm:ss") End Sub
Next j End SubLabel3 = Format((Val(Label1) + Val(Label2)) / 2, "0.00")
UserForm1.Label1.Caption = Worksheets("Sayfa1").Range("A" & ActiveCell.Row) End SubLabel1.Caption = Format(Now, "dddd d mmmm yyyy hh:mm:ss")End Sub
Label1.Caption = "Programmer pir"End Sub
Format(ListBox1.Column(8), "dd.mm.yyyy")
' Next wksEnd Sub
End Sub
NextEnd SubTextBox2 = Sheets("Sayfa1").Cells(x, 2) End Sub Next IEnd SubNext End SubNext shtEnd SubTextBox1 = T1End SubListBox1.RowSource = "Sayfa1!a1: a10"End Sub ListBox1.ColumnCount = 7 ' lisbox'ta ki sütun sayısıEnd Sub MsgBox ListBox1.ListIndex'sıra numaralı olarak sayfadan aldırıyorsanız eşit olması için +1 eklemelisiniz.End SubListBox2.RowSource = "Sayfa9!C1:C5"End SubListBox1.ColumnWidths = 100 & ";" & 70 'lisbox'taki sütunların genişliği End SubEnd Sub
ListBox1.ColumnWidths = "40;40" 'açılan sütunların genişlikleri.End Sub listbox1.rowsource="sayfa1!b1:b" & [sayfa1!b65536].end(3).row End Sub
her iki koduda UserForm_Initialize olayına yazabilirsiniz. s1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List End SubListBox1.RowSource = "veri!A2:" & bbbEnd SubNext sira 'döngünün tekrar For komutuna yani başa dönmesini sağlarEnd Sub NextEnd SubRows(ListBox1.ListIndex + 1).DeleteEnd SubTextBox9 = ListBox1.List(ListBox1.ListIndex, 8)End SubListBox1.RowSource = "Sayfa1!b2:b" & XEnd Sub Me.ListBox1.ListIndex = 0 End Sub ListBox1.ColumnHeads = TrueEnd Sub End Sub Range("F1") = ListBox1.Column(2)End SubKapama : Workbooks(x).Close SaveChanges:=True/False Silme : Kill ("Dosya yolu" & x)Selection.AutoFilterEnd SubNext End SubNext End Sub Next iEnd SubNextEnd SubMe.ListBox1.AddItem "Ayşe"End SubListBox1.ColumnWidths = 100 & ";" & 70 'lisbox'taki sütunların genişliği End SubSelection.EntireRow.Delete End SubListBox1.RowSource = "Sayfa1!A1:AG200" End SubListBox1.RowSource = "Sayfa1!A1: A500"End SubListBox2.AddItem "TOPLAM :" & TotalCredit & " KİŞİ KALACAK"End Sub End WithEnd Sub Application.Goto Range(addy) End Sub Unload MeEnd Sub Application.Goto Range(ListBox1.Text), TrueEnd Sub Application.Goto Range(ListBox1.List(ListBox1.ListIndex))End Sub Application.Goto Range(ListBox1.Text), TrueEnd Sub Unload MeEnd Sub
ListBox1.List(i, 0) = Format(ListBox1.List(i, 0), "dd.mm.yyyy") Next i 'Yukarıdaki kodda i satır numarasını, 0 sütun numarasını göstermektedir.TextBox1 = toplamEnd Subsonsat2=[b65536].end(3).row+1range(cells(sonsat2,"b"),cells(sat2+sonsat2,sut2+2))=listbox2.lists1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.ListEnd Sub If KeyCode = 13 Then ListBox1.SetFocusEnd Sub
Workbooks.Open Filename:=activeworkbook.path & "\satis.xls"
Application:Undo
Range("A1:D1").Merge
MsgBox z End SubEnd Sub
Userform1.ComboBox1.Value = Userform2.ListBox1.Column(0) End Sub TextBox1 = Format(TextBox1, "#,##0.00")End SubSheets("DATA").Rows(sil).DeleteEnd Ifyanlis: If Err Then MsgBox "Bulamadım!" End SubEnd Sub
3-BAÃ_DEÃ_DOLU_SAY(...) formülünü bir hücreye yazarak burdan aldığınız veri ile � �MsgBox SayiEnd SubApplication.EnableEvents = TrueEnd SubNext i End Sub Application.ScreenUpdating = TrueEnd Sub Set FSO = NothingEnd SubSelection.Copy next acall aralıklı_calıstır End sub
ActiveCell= "=CEILING(25.32,1)"MsgBox "SEÇİLEN KAYIT SİLİNMİŞTİR"End SubEnd Sub
MsgBox say End SubEnd Sub
End Sub'C:\Documents and Settings\bulent\Desktop\UserForm1.frm - dosya yolunu kendinize uyarlayın
End IfEnd Sub
Set Sh2 = NothingEnd Sub Application.DisplayAlerts = TrueEnd SubMsgBox CLng(CDate("29.11.2005")) - CLng(CDate("05.04.1978"))End SubIf Date>=Cdate("23.02.2006") then Exit sub 'satırını ilave ediniz End SubListBox2.RowSource = adresEnd Sub False, Transpose:=TrueEnd Sub Tamam.Enabled = True End Sub End WithEnd SubDip Not: Eğer amaç kullanıcıdan makroları gizlemekse; makroların olduğu modulün en üstüne aşağıdaki satırı yerleştirdiğinizde, kullanıcı bahsettiğiniz menüler aktifken bile sözkonusu moduldeki makrolar listelenmez. Çünkü o modül tıpkı sayfa veya UserForm modulleri gibi "Private-Özel" bir modül olacaktır. StopTimer End Sub End If End SubMsgBox "Makrolar gizli!!" End Sub
LoopEnd SubEnd Sub
‘Yaptırdığınız işlemlerin başına Thisworkbook ekleyerek yapabilirsiniz. ThisWorkbook.Sheets(1).... Selection.OnAction = "Makro1"End SubKill fnameEnd SubEnd IfEnd Sub
gibi bir komut kullanabilirsiniz:
şeklindede olabilir: Next JEnd Sub Resume ContinueEnd FunctionEnd Function
NextEnd subNext Ctrl End SubNext Ctrl End SubApplication.CommandBars("Full Screen").Enabled = FalseEnd Sub
MsgBox "Mesaj boxlarda satır başı yapamıyorum." & vbCrlf & "Bunun bir yolu olmalı !" & vbCrlf & "Acaba vbCrlf kullanırsam ne olur?", vbinformation
End Sub
NextEnd Sub MsgBox "http://www.kmbuss.de"End Sub ML.FindControl(Tag:="MeinMenü").DeleteEnd SubcbSpecialMenu.DeleteEnd SubNextEnd Sub vbaPass = AddressOfFunction End Function ActiveSheet.Columns("A:B").AutoFitEnd SubMsgBox "Line 1" & vbCrLf & "Line 2"End Sub MsgBox "Il est " & TimeEnd SubEnd Sub
MsgBox "A" & Chr(10) & "B" & Chr(10) & "C" & Chr(10) & "D" & Chr(10) End Sub Chr(82) & Chr(220) End Sub Copies:=iCopies, Collate:=TrueEnd SubMsgBox "Merhaba 20", vbYesNoCancelEnd SubEnd IfEnd Sub Time, 3, "pir") End Sub End IfEnd SubButtons:=vbExclamation, Title:="ATTENTION"End SubSet MyMessage = NothingEnd SubCall Macro2End SubMsgBox MonTest 'Retourne VraiEnd SubMsgBox MonTest2End SubMsgBox TestDate2End Sub TextBox3 = Format(Val1 + Val2, "#,### TL")End Sub End Sub
AppActivate PlayerEnd SubAppActivate PlayerEnd SubAppActivate PlayerEnd SubActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Test"End SubModule(1).Visible = TrueEnd Sub End WithEnd Sub
End IfEnd SubEnd IfEnd Function Format$(iSec, "00")End FunctionEnd IfEnd Sub Range("a1").Value = wert01End Sub Time, 3, "www.excel.web.tr") End Sub Time, 3, "pir") End SubMultiPage1.Value = MultiPage1.Value + 1 End Sub End Select End Sub End Select End Sub End IfEnd SubMultiPage1.Value = MultiPage1.Value + 1End Sub '// Ikinci sayfayi gosterir MultiPage1.Value = 1
MultiPage1.Value = 2
Bu işlemi en son yapın ki düzenlemelerde bir sorunla karşılaşmayın.End SelectEnd Sub
Shell "notepad.exe c:\foldername\filename.txt", vbMaximizedFocus
TextBox13.Value = TextBox1*1 + TextBox2*1 + TextBox3*1+........
=ALTTOPLAM(9;B3:B1000)
End Select End Sub On Error GoTo 0End Sub Call mciSendString("Close MM", 0&, 0&, 0&)End Sub On Error GoTo 0End SubNextEnd SubEnd If End SubNext Row End SubCells(1, 3).Value = Count End SubNextEnd SubRange("A11") = totalEnd SubApplication.Dialogs(xlDialogInsertObject).ShowEnd Sub
Başka önerileri açıkçası bende merakla bekliyorum.
Application.DisplayFullScreen = False End SubSendKeys "%{F4}", TrueEnd Sub
'MSPaint.exe'sol.exe
End IfEnd Subkeybd_event VK_NUMLOCK, 0, 0, 0End SubEnd IfEnd Sub
UserForm1.ShowEnd Sub ..TextBox10.Value = "" End Sub
Application.Dialogs(xlDialogAutoCorrect).ShowEnd Sub CalculateEnd Sub StopTimerEnd SubEnd IfEnd Sub
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllDataEnd SubRange("C1").SelectEnd SubActiveWindow.SelectedSheets.PrintPreviewMe.Show ActiveWindow.SelectedSheets.PrintOut Copies:=1 End SubActiveWindow.SelectedSheets.PrintOut Copies:=1 End SubWorksheets(1).PageSetup.LeftFooter = ThisWorkbook.FullName End Subiade2005 = Round(Switch(tutar > 6600, (tutar - 6600) * 0.04 + 462, tutar > 3300, (tutar - 3300) * 0.06 + 264, tutar <= 3300, (tutar) * 0.08), 2)End FunctionApplication.Dialogs(xlDialogCustomViews).ShowEnd Sub End WithEnd SubChrW(8364)End Sub
yapmanız gereken a2 den itibaren aşağı doğru verilerinizi yapıştırmak. ve b1, c1, d1, e1 ....... gerektiği kadar alınması gereken parça boyutlarını girmek. yukarıdaki kodu şekilde görülen butonun içine yapıştırın.'Application.DisplayAlerts = True End SubGetDirectoryListing Path$End SubNext a 10End Sub Application.ScreenUpdating = TrueEnd SubLResult = ExitWindowsEx(EWX_SHUTDOWN, 0&) End Sub ActiveWorkbook.FollowHyperlink strDocumentEnd Sub End IfEnd Sub NextEnd SubApplication.Dialogs(xlDialogArrangeAll).ShowEnd Sub Next End Sub End WithEnd Sub
ActiveSheet.PivotTables("PivotTable").RefreshTable
End WithEnd Sub MsgBox (Timer - lngStart) & " Sekunden"End Subkitap.Activate End SubNextEnd Sub ActiveSheet.PivotTables("PivotTable4").RefreshTableEnd Sub ActiveSheet.PivotTables("PivotTable").RefreshTableEnd Sub
MsgBox "The PivotTable connection has been opened."End Sub MsgBox "The PivotTable connection has been closed."End Sub Next wksEnd Sub ActiveSheet.PivotTables("PivotTable").RefreshTableEnd Sub:=TrueEnd SubMsgbox "Hello"End Sub ActiveWorkbook.Close TrueEnd Subtamam:End Function
End IfEnd FunctionEnd Function
End Sub
NextEnd SubNext cEnd SubNextEnd SubMsgBox ("The random number is ") & (MyNumber)End Sub Range("A1") = NbreAleaEnd Sub Next iEnd SubMsgBox MyValue End SubNext End SubNext cEnd SubCells(rastgele, 1).Interior.ColorIndex = 6 End Sub End If End Sub Range("A" & b).EntireRow.Delete End Sub10 MsgBox "REFERANS MEVCUT DEĞİL"End Sub WSH_Shell.RegDelete RegKeyEnd Sub Command3.Caption = "Delete Value" End Sub COUNTIFCOLOUR = ResultEnd FunctionApplication.Dialogs(xlDialogColorPalette).ShowEnd Sub End SubNext i End Sub Next irowEnd SubEnd If End Function
=SumIfColours(3;$A$1:$D$20)
End IfEnd SubDoEvents ' Clipboarda Çekilen Resmin Kopyalanması için Bilgisayarı bekletEnd SubApplication.Dialogs(xlDialogInsertPicture).ShowEnd SubActiveSheet.Pictures.Insert(fichImg).SelectEnd SubApplication.Dialogs(xlDialogCopyPicture).ShowEnd Sub Range("A1").SelectEnd SubRange("a2").Interior.Color = RGB(255, 0, 0)End SubRange("E1").SelectEnd SubLoop End Sub
StopClockinMenuEnd Sub
TextBox3 = Hour(TextBox2) * 3600 + Minute(TextBox2) * 60 + Second(TextBox2)End SubMsgBox "Heute ist der " & Date & "," & Chr$(13) & Chr$(13) & " es ist " & Time & " Uhr.", vbOKOnly, "www.excel-lex.de.vu"End SubEnd IfEnd Sub If Right(TextBox2, 1) Like "[0-9]" Then SendKeys "{bs}" End Sub Next a End Sub End IfEnd SubActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.AddressEnd Sub Cancel = TrueEnd Sub Application.CommandBars("Cell").ResetEnd SubSelection.PasteSpecial Paste:=xlValuesEnd SubApplication.CommandBars("Cell").ResetEnd Sub CommandBars("Cell").ResetEnd Sub If KeyCode = 39 Then Me.TextBox2.SetFocusEnd Sub ActiveSheet.PageSetup.RightHeader = Format(Date, "m/d/yy")End SubCells(i, 3) = a(UBound(a))
Verkehrt, " ", 0))End FunctionNext i End Sub Next pirEnd Sub Next LoiEnd SubRange("1:1,3:3,5:5,9:9,11:11").SelectEnd Sub Header:=xlGuess End Sub DataOption1:=xlSortNormal End Sub Range("B1").Select End Sub Range("A1:B4").Sort Key1:=Range("A1") End SubActiveWindow.DisplayHeadings = TrueEnd Sub
End SubEnd If End SubEnd IfEnd Sub Target.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1End FunctionEnd If End Sub
End Subhucre.Select End Sub Selection.RowHeight = rCM / 0.035End Sub Cells.SelectEnd SubSelection.SpecialCells(xlBlanks).Areas(1).Cells(1).SelectEnd Sub Worksheets("Sheet2").PasteEnd SubGoTo döngü 10End SubApplication.CutCopyMode = FalseEnd Sub Next iEnd SubSheets("veri").ScrollArea = "a1:a10"End SubNext rngRowEnd Sub Range("A1:A10") = Application.Transpose(Range("B1:K1"))End Sub Range(ARALIK).ClearContentsEnd Sub Selection.Sort Key1:=Range("A1")End SubIf Cells(sss, 1) = "" Then Rows(Cells(sss, "a").Row).GroupNext sss Next iEnd Sub ActiveWorkbook.saveas Filename:=dosyaEnd SubEnd IfEnd Sub Workbooks(ad).Close 'yeni oluşturulan dosyayı kapatırEnd Sub NextEnd SubNextEnd Sub Sh1.Range("A1:A" & Dolusay1).EntireRow.Copy Sh2.Range("A" & Dolusay2 + 1) End Sub Next iEnd Sub
Range("a1").value=ActiveSheet.nameEnd Sub Set NewSh = Nothing End Sub Sheets("ana sayfa").Move Before:=Sheets(1) End Sub End With End Sub Sheets("Sayfa2").Tab.ColorIndex = 33 End Sub Sheets("ana sayfa").Move Before:=Sheets(1) End Sub MsgBox "Abarini kimi görirem", vbInformation, "Hoş gelmişen la kıro"End SubWorksheets("Tabelle1").PageSetup.LeftHeader = datumEnd SubMakroname 'Makroname writeEnd Subs1.DeleteEnd Sub Application.ScreenUpdating = TrueEnd SubNextEnd SubNext ShEnd Sub Application.ScreenUpdating = TrueEnd Sub End WithEnd SubActiveSheet.Name = NewNameEnd Sub NextEnd Sub Sheets(1).Copy After:=Sheets(Sheets.Count) End Sub
End SubSheets(Sayfa).SelectEnd SubMsgBox Sayfa, vbOKOnly + vbInformation, "Sayfa İsimleri"End SubApplication.DisplayAlerts = True End Sub Next iSheetEnd Sub Next iEnd SubApplication.ScreenUpdating = TrueEnd SubNextEnd Sub Next iEnd Subad.AddItem sayfa.Name Next sayfaApplication.CommandBars("Workbook tabs").ShowPopup 930, 30 End Sub Next i End SubNext iEnd Sub Next jEnd SubNextEnd SubActiveSheet.Next.Select End Sub Next IEnd SubNext TabelleEnd SubNext iEnd SubIf Target = Range("A1") Then ActiveSheet.Name = TargetEnd Sub
End SubCells(1, 1).SelectEnd Sub
Application.ScreenUpdating = TrueEnd Sub ActiveSheet.DrawingObjects.DeleteEnd SubActiveWindow.ActiveSheet.Name = NewPageNameEnd Subfin:End SubNext shtEnd Sub
Next End SubActiveSheet.EnableAutoFilter = TrueEnd SubNext WbEnd Sub MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End SubNext End Sub
Sheets("Sheet1").Range("A1")=ListBox2.ListCount
End Sub ActiveSheet.UnprotectEnd SubNext iEnd Sub
End Sub NextEnd SubActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSourcesEnd Sub Application.ScreenUpdating = TrueEnd Sub mySheets.Select False End SubMsgBox "Anzahl der Tabellen: " & CntEnd Sub
Next i End SubEnd If End Sub [a1] = ActiveSheet.Name End SubEnd WithEnd SubApplication.ScreenUpdating = TrueEnd SubNext iEnd SubApplication.ScreenUpdating = TrueEnd Sub Application.DisplayAlerts = TrueEnd Sub
10 MsgBox "sayfa bulunamadı"End Sub End WithEnd SubWorksheets("Sayfa1").DeleteEnd SubActiveSheet.Unprotect PasswordEnd Sub MsgBox "Sayfa şifrelendi"End SubEnd Sub
Set s2 = Nothing End SubWorksheets("Tabelle2").Range("A1")End SubEnd Sub
MsgBox Say2.Name & "'de aramış olduğunuz " & Veri & " verisini içeren toplam " & Sayac & " adet hücre değeri bulundu ve " & Say1.Name & "'de listelendi."End Sub Sheets("sayfa2").Select End Sub Sheets("sayfa2").Select End Sub Sheets("Sayfa1").PrintOutEnd SubApplication.DisplayFullScreen = FalseEnd SubEnd With End Sub MsgBox"Sayfa2 ye Hoş Geldiniz"End Sub Worksheets(2).Visible = xlVeryHiddenEnd Sub Worksheets(2).Visible = Hide End Sub Worksheets(2).Visible = Not Worksheets(2).VisibleEnd Sub Worksheets(2).Visible = TrueEnd SubEnd WithEnd SubEnd IfEnd Sub Set RaBereich = NothingEnd SubEnd Sub
Rows("1:250").EntireRow.Hidden = False End Sub Label1.Caption = "Deger bulunamadi...."End Sub MsgBox (ActiveSheet.Buttons(Application.Caller).Text)End Sub End If End SubEnd If End Sub ActiveCell.Value = TimeEnd Sub Cancel = TrueEnd SubApplication.MoveAfterReturnDirection = xlDownEnd SubApplication.MoveAfterReturnDirection = xlDownEnd SubApplication.MoveAfterReturnDirection = xlDownEnd Sub
Option Explicit End IfEnd SubSheets("Record").SelectEnd SubTabelle1.WebBrowser1.Navigate "http://www.excel-lex.de.vu"End Subcountformulas = yEnd Function
End IfEnd SubActiveSheet.Hyperlinks.DeleteEnd Sub Worksheets(1).Shapes.AddTextbox(msoTextOrientationHorizontal, w, h, 200, 50).TextFrame.Characters.Text = "Test Box"End Sub End Select End Sub
Next hucreEnd Sub End IfEnd Sub ActiveSheet.DrawingObjects.Delete End SubSheets("Anasayfa").Range("a1:p40").ClearContentsSheets("Anasayfa").ScrollArea = "c5" End SubApplication.ScreenUpdating = TrueEnd Sub End IfEnd SubApplication.CommandBars("Cell").ResetEnd Sub MsgBox "Sağ klik yasaklanmıştır! pir" End Sub
End SubNext NameXEnd Sub NextEnd SubApplication.EnableEvents = TrueEnd SubSheets("Sayfa3").Select End Sub If Target.Address = "$C$18" Then Sheets("Sayfa2").Select End Sub SetCursorPos 220, 200End SubSheets("Sayfa1").Buttons(1).Enabled = FalseEnd Sub Sheets("Sayfa1").Buttons(1).Enabled = FalseEnd Sub
range("c2:c" & range("c65536").end(xlup).row).select
Next iEnd SubActiveSheet.Protect password:=kubilay, DrawingObjects:=True, Contents:=True, Scenarios:=True End SubRange("A1").SelectEnd Sub
MsgBox Sh.NameEnd SubSheets("sayfa1").SelectEnd SubRange("a4").Value = 111End Subbaşka bir yazım şekli de; range("c2:c" & range("c65536").end(xlup).row).select
range("c2:c" & range("c65536").end(xlup).row).select Call sheets_menuEnd SubEnd Sub
Application.StatusBar = FalseEnd Sub
End SubNextEnd SubApplication.ScreenUpdating = TrueEnd Sub Sheets(dlg.ListBoxes(1).List(dlg.ListBoxes(1).ListIndex)).ActivateEnd Sub mySheets.Select False End SubSheets(1).SelectEnd SubDelMyMenuEnd Sub End WithEnd Sub NextEnd Sub Next ShEnd SubNext iEnd Sub
Sheets("Sayfa1").Name = "Sayfa1"
TextBox1.text = format(xxxx,"0.00")
Selection.PrintOut Copies:=2
'Create a new sheet in the current workbook' added
End Sub Next Worksheet1End SubApplication.CommandBars("Workbook tabs").ShowPopup 930, 30 End SubNext z End Sub
End IfEnd Sub Next ws End SubApplication.GoTo Reference:=ActiveSheet.Range("A1"), Scroll:=TrueEnd SubApplication.ScreenUpdating = TrueEnd SubActiveSheet.PageSetup.LeftFooter = ActiveSheet.Parent.FullNameEnd Sub If Target = "4" Then Target = "Kabataş" End Sub ActiveSheet.ScrollArea = "" End Sub(" Çalışma sayfasına köprü oluşturuldu"), vbOKOnly, ThisWorkbook.NameEnd Sub Unload Me End Sub
Range("I7").SelectEnd Sub ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=TrueEnd SubNext End SubNext wksEnd SubEnd Sub
End Sub
ActiveCell.Value = 35End Sub
Cancel = FalseEnd Sub Sheets(shtName).Range("A1")End SubSelection.EntireColumn.Hidden = TrueEnd SubSheets(mySht).SelectEnd SubActiveSheet.DisplayAutomaticPageBreaks = False 'sayfa sonlarını göstermezEnd Sub Next shtEnd Sub Range("a1").PrintOut Copies:=1End SubActiveSheet.PrintPreviewEnd Sub
Next KopyanumarasıEnd SubMsgBox NumeroLigneEnd Sub
Uret = Val(retStr) End FunctionEnd WithEnd Sub[A2].Value = Round(3, 51) End Sub[A2].Value = Abs(1) End Sub[/code][A2].Value = Atn(1) * 1 End Sub[A2].Value = Round(3, 49) End Sub[A2].Value = Round(3, 51) End SubTextBox2.Text = BreakSecEnd SubDollarText = Trim(sTemp) & " and " & sCentsEnd Function 'DollarText Application.Calculation = xlCalculationAutomaticEnd Sub cevir="HATA" end functionMsgBox (sonuc)End SubNext IEnd Sub End WithEnd Sub
Sheets("Sayfa1").PageSetup.PrintArea = "$A$1:$k$58" ActiveWindow.SelectedSheets.PrintPreview
MsgBox strDNameEnd SubNext iEnd SubActiveCell.Interior.ColorIndex = xlColorIndexNone End Sub Next fCell End SubNext i End Sub Next hucreEnd SubEnd WithEnd Sub End IfEnd SubSet WordObj = NothingEnd Sub End IfEnd Sub Next xEnd Sub 'La plus grande valeur est contenu dans la variable ValEnd SubResume ErrorExitEnd SubNextEnd SubNextEnd SubSelection.ShapeRange.Width = yEnd SubSelection.Name = "myRange"End SubEnd IfEnd Sub Set WordObj = NothingEnd Sub Selection.Cut Destination:=Range("A" & r & ":A" & s - 1) Range("a" & r).SelectNext RowEnd Sub Range("A1:F15").Select 'set range zoomActiveWindow.zoom = Trueeski_hucre_column = ActiveCell.ColumnEnd SubCall PlaySound(sesx$, 1, 0) '-------Eklenen kod------End Function Next iEnd SubEnd WithEnd SubResume NextEnd Sub ActiveSheet.Name = newShtNameEnd SubNextEnd SubSet Button = ActiveSheet.Buttons.Add(j.Left + 3, j.Top + 3, j.Width - 4, j.Height - 4)End Sub[b3:f65536].Sort Key1:=[B3], Key2:=[C3], Key3:=[D3]End SubApplication.Dialogs(xlDialogFileDelete).ShowEnd SubNextEnd SubTextBox13.Value = ActiveCell.Offset(0, 12).ValueTextBox14.Value = ActiveCell.Offset(0, 13).Value
Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocusEnd SubShell ("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder")End SubSelection.Font.ColorIndex = 2End Sub MsgBox Len("abcd") 'sayısal olarak karakter sayEnd SubMsgBox iEnd SubUnload MeEnd Sub
ListBox1.ListIndex = 0End Sub Application.StatusBar = ""End SubLaufbandExit = 1End SubMsgBox "Fertig ", vbOKOnly, "© K.-M. Buss"End SubEnd WithEnd Function Application.StatusBar = False End Sub EndEnd SubApplication.Dialogs(xlDialogDefineStyle).ShowEnd Submsgbox a end sub End If End SubEnd Sub
Next cell End Sub
Selection.AutoFilter Field:=5, Criteria1:=ComboBox1.Value
Application.QuitEnd Sub ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomaticEnd SubUserForm1.HideEnd Sub Unload Me End Sub Unload Me End Sub
End SubEnd IfEnd SubMsgBox sEnd SubMsgBox sEnd SubMsgBox sEnd SubMsgBox sEnd Sub
End Sub MsgBox strFSEnd SubEnd Sub
NextEnd SubNextEnd Sub End WithEnd SubNext colEnd SubApplication.Dialogs(xlDialogColumnWidth).ShowEnd SubNext End Sub Seç hücre=columns(“D”).Find (what:=”ist.”) - --> D sütununda “ist.” Sözcüğü aranıyor.Bulunan ilk hücrenin adresi hücre değişkenine atanıyor.What , find metodun bir argümanıdır.Application.ScreenUpdating = True End Sub Application.ScreenUpdating = TrueEnd SubRange("c1:c" & Cells(65536, 3).End(xlUp).Row).SelectEnd SubNext NEnd sub
End SubMsgBox "Il y a " & numBlanks & " cellules vides dans cette plage."End Sub Next iEnd SubNext iEnd Sub ActiveCell.End(xlDown).Offset(1, 0).Select ' sütundaki ilk boş hücreye giderEnd SubEnd WithEnd Sub Range("A1").SelectEnd SubSelection.Columns.AutoFitEnd SubMsgBox "Il y a " & NonVide & " cellules non vides dans la sélection"End Sub Range("A1") = SomRougEnd SubMsgBox "Error no. " & Err & " - " & ErrorEnd Sub [M1] = WorksheetFunction.Sum(Range("L1:L65536")) - WorksheetFunction.Sum(Range("J1:J65536")) End Sub ActiveSheet.PageSetup.PrintArea = stcell & ":" & lcell End Sub
Değerlerinizin olduğu sayfadan bu kodu çalıştırınNext iEnd Sub
End IfEnd Sub If [b1] < [a1] Then MsgBox "girdiğiniz değer yanlış"End Sub
ilk başta komut düğmesinin enable özelliğini false yapmayı unutmayın.End IfEnd SubLabel3.Caption = "Alan"End SubPeki bu kayıt register'in neresinde diye soranlara?Başlat / Çalıştır 'a regedit yazıp enter'e basın. Aşağıdaki görülen resimdeki adrese ulaşın. Kaydı orada göreceksiniz.' Burada input alındıktan sonra esas yapılmamk istenen işlem prosedürleri çağrılacakEnd SubIf CloseMode <> 1 Then Cancel = TrueEnd Sub End Sub
MsgBox "Çalışan kodlar" ThisWorkbook.CloseEnd SubNext aEnd SubPeki bu kayıt register'in neresinde diye soranlara?Başlat / Çalıştır 'a regedit yazıp enter'e basın. Aşağıdaki görülen resimdeki adrese ulaşın. Kaydı orada göreceksiniz.
TextBox1.ForeColor = vbRed
End If End SubTextBox3.Text = Mid(partner, InStr(partner, "EUR") + 42, 6) & " YTL"TextBox4.Text = Mid(partner, InStr(partner, "EUR") + 55, 6) & " YTL"Me.TextBox2.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelectionEnd SubMe.TextBox2.EnterFieldBehavior = fmEnterFieldBehaviorSelectAll End Sub
Tabelle1.WebBrowser1.Navigate "http://www.mynet.com" End Sub Tabelle1.WebBrowser1.Navigate "http://www.excel.web.tr" End Sub End Sub
End Function
MsgBox aEnd SubApplication.DisplayFullScreen = True End Sub
Me.Width = Application.WidthEnd SubApplication.DisplayFullScreen = TrueApplication.CommandBars("Full Screen").Enabled = False NextEnd SubEnd IfEnd Sub yildakigun = IIf((yil Mod 4) > 0, 365, 366) End Function
End FunctionMsgBox "ARANAN YER BULUNAMADI !"End Sub
MsgBox "Bugün: " & Date & " --> Yılın " & hafta & ". Haftası" MsgBox ("You have " & exdate - Date & "Days left")End Subselection.numberformat = "yyyy/mm/dd hh:mm:ss"end sub Application.ScreenUpdating = TrueEnd Sub Application.ScreenUpdating = TrueEnd SubEnd IfEnd Sub End WithEnd Sub ActiveWorkbook.SaveCopyAs SicherungEnd Sub ActiveWorkbook.Save End Sub ActiveWorkbook.Save End Sub TextBox9 = Format(DateAdd("d", -TextBox4, ComboBox6), "dd.mm.yyyy") end sub
End SubNextEnd Sub
B1 ve C1 hücresindeki formülleri listeniz uzunluğunca kopyaladığında listenizdeki bütün kayıtlar "Adı" ve "Soyadı" halinde 2 farklı sütuna kopyalanmış olacaktır. NextEnd SubEnd Sub
Application.Dialogs(xlDialogClear).ShowEnd SubActiveCell.FormulaR1C1 = strReverseTextEnd Sub TextBox1 = Format(Time, "hh:mm") End Sub mesaj kutusunda aradığınız ismi ve adresini görüntüler.
End IfEnd SubSet a = ds.CreateTextFile("C:\SXS\Deneme.txt", True, False) 'İlk true Overwrite,İkinci False ASCII true olursa UnicodeEnd Subds.DeleteFile "C:\SXS\Deneme.txt", TrueEnd Sub'TristateUseDefault'da System Default,TristateTrue 'da Unicode,TristateFalse'da ASCII kullanılır.End Suba.CloseEnd Sub Close #1End SubArray(2, 1), Array(3, 1))End Sub :=Array(1, 1)End Sub
End IfEnd SubEnd Sub
If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
TextBox1.Text = Format(DTPicker1, "dd.mm.yyyy")
Sheets("sayfa1").Cells(1, 3) = "TÜM SATIRLAR DOLU" 'UYARI MESAJI 10End Sub
TextBox17=Format(TextBox17,"#,##0.00") TextBox1.Text = "" End SubTextBox1.Text = "" End Sub
MsgBox "TextBox1 icerigi hafizaya kopyalandı...." End IfTextBox3 = Format(TextBox3, "mm""/""dd""/""yyyy") End Sub TextBox7.BackColor = vbWhite End Sub End IfEnd Sub10:End SubActiveCell.Formula = TextBox1 End SubTextBox1.BackColor = vbWhiteEnd Sub End SelectEnd Sub End If End Sub End Select End SubTextBox1 = Format(TextBox1, "##,##.00") End SubIf uz > 3 And IsNumeric(par) = False Then SendKeys "{bs}"End SubEnd IfEnd Sub End WithEnd SubEnd IfEnd SubTextBox1.BackColor = &HFF& End SubTextBox4.Value = ""End SubKeyAscii = AutoType(Screen.ActiveControl, KeyAscii)End Sub End WithEnd Sub End Sub
TextBox2 = Sheets("Sayfa1").Cells(Satırno, 3).ValueEnd Sub Set NewSh = Nothing End Sub Label1.Caption = "Deger bulunamadi...." End Sub End If End SubIf TextBox1 <> 0 And Val(TextBox1.Text) < Val(TextBox2.Text) Then MsgBox "hata":TextBox2 = "" End SubTextBox7.TextAlign = fmTextAlignRightEnd Sub End IfEnd SubUserForm2.ShowEnd Sub TextBox2 = Format(TextBox2, "###,0") End SubEnd IfEnd Sub End IfEnd Sub End IfEnd Sub labtopkalper = Val(txtsevper) * 0.4 + Val(txtkalper) * 0.6 End SubCells(1, 23) = (z + 100) / 100 End SubEnd IfEnd Sub
End Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox " Harf girilmeyecek,Sadece Rakam Giriniz ....." End Sub TextBox1.MaxLength = 8 End Sub If Not IsNumeric(TextBox1) Then SendKeys "{BS}"End SubIf KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End SubEnd IfEnd Sub
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text) ' uzunluğu textboxınkine eşitle End SubTextBox1 = ""End Sub
[a2] = TextBox1.Text End SubTextBox1.Value = ""End Sub
Range("a1").value= Textbox1.value & " " & Textbox2.value
TextBox1= Val(TextBox2.Value) + Val(TextBox3.Value)
TextBox1.TextAlign = fmTextAlignRight
MsgBox TextBox1.Text & " İSİMLİ ŞAHISIN KAYDI GÜNCELLENMİŞTİR.", vbInformation + vbOKOnly, "KAYIT GÜNCELLENDİ"
End if End Sub2. İçine iki tane textbox oluşturun3. Textbox1 nesnesinin Exit olayına Cancel = True yazdığınızda kullanıcı bu nesneyi boş geçemez TextBox3 = Format(t1 + t2, "dd.mm.yyyy") End SubTextBox1 = Val(TextBox2.Value) + Val(TextBox3.Value) End Sub UserForm2.TextBox1.Value = UserForm2.TextBox1.Value & vbcrlf & TextBox2.Value & vbcrlf & TextBox3.Value End Sub
Next xEnd Sub End IfEnd SubNext End Sub Cells(z, 5) = TextBox5End SubTextBox50.Value = Format(toplam, "###,###") End Sub
TextBox1.Text = Format(TextBox1.Text, "0000") End SubMe.TextBox1.Value = Format(Me.TextBox1.Value, "###,###") End Sub TextBox1 = Format(TextBox1, "###,0") End Sub TextBox2 = Format(TextBox2, "###,0") End Sub End IfEnd Sub[a1].NumberFormat = "General"End SubTextBox1 = StrConv(TextBox1, vbUpperCase) End Sub [A1]=TextBox1.value End Sub TextBox1 = [aa1] End Sub TextBox1 = Evaluate("=upper(""" & TextBox1 & """)") End Sub TextBox1 = Format(TextBox1, "###,###.00") End Sub TextBox1 = Format(TextBox1, "###,###.00") End SubTextBox1 = Format(TextBox1, ".##") End Sub If Len(TextBox1) = 1 Then TextBox1 = " " & TextBox1 End SubTextBox3 = Ccur(TextBox1) + Ccur(TextBox2) End SubEnd Sub
TextBox3 = Format(Val1 + Val2, "#,### TL") End SubActiveCell.Formula = TextBox1 End SubTextBox1 = "0" & Format(TextBox1, "###,###") End Sub
Seslisay = sayacEnd FunctionTextBox2 = cint(Sheets("9b").Cells(x, 7)) TextBox3 = cint(Sheets("9b").Cells(x, 8)). TextBox1 = Format(TextBox1, "dd""/""mm""/""yyyy") End Sub End IfEnd SubTextBox6 = DateSerial(Year(tarih), Month(tarih) + 6, Day(tarih))End Subgun = DateDiff("d", Date1, Date2) - DateDiff("d", Date1, DateAdd("yyyy", yil, DateAdd("m", ay, Date1)))Text3 = yil & " yıl, " & ay & " ay ve " & gun & " gün."End If End Sub
End SubEnd If End SubTextBox1 = Format(TextBox1, "(###)"".""###"".""##"".""##") End SubTextBox3 = Val(TextBox1) + Val(TextBox2) End Sub TextBox1.MaxLength = 7 End Sub TextBox1 = Format(TextBox1, "###,###.00") End SubSet MyRng = NothingEnd FunctionKeyAscii = AutoType(Screen.ActiveControl, KeyAscii)End SubTextBox1 = Format(TextBox1, ("##,###.## Ytl")) End SubRange("a1") = TextBox6End Sub TextBox1.SelLength = 1End SubTextBox5.Text = Range("d9").TextEnd Sub
If IsNumeric(TextBox1) Then MsgBox "KAYDETMEKTE OLDUĞUNUZ KART BÖLÜM KARTIDIR. PERSONEL İÇİN BU KART KODUNUN ALTINDA PERSONEL KARTLARI AÇINIZ, DEVAM ETMEK İSTEDİĞİNİZDEN EMİN MİSİNİZ?", vbQuestion + vbYesNo End Sub konus.Speak TextBox1.TextEnd Sub
TextBox1.SetFocus
Bul = Evaluate("=SumProduct((B2:B65536 = ""A"") * (D2:D65536=""P""))")
MsgBox "Three Seconds is up!"End Sub End Sub
End IfEnd SubNext i End SubEnd WithEnd Sub
Range("A21").Formula = "=topla(A1:A20)+S(" & Chr(34) & "Bu formül makro ile yazılmıştır" & Chr(34) & ")"
Next rngRowEnd Sub MsgBox "Aradığınız isimde bir kayıt bulunamadı"End SubActiveCell = TreeView1.SelectedItem.TextEnd SubCells(1, 1) = InputBox("Bitte geben Sie den Wert ein, der in Zelle A1 geschrieben werden soll:") End Sub Cells(1, 1) = InputBox("Bitte geben Sie den Wert ein, der in Zelle A1 geschrieben werden soll:") End Sub MsgBox "Basılan Tuşun Ascii Değeri :" & KeyAsciiEnd SubMsgBox KeyCodeEnd SubApplication.DisplayCommentIndicator = xlCommentAndIndicatorEnd SubNextEnd Sub Next ctrlEnd Sub SW_SHOWNORMALEnd Sub End SelectEnd SubNext End Sub Next End Sub Next MyForm End SubSelection.EntireColumn.Hidden = TrueEnd SubNextEnd SubNext wsSheetEnd SubNext wsSheetEnd Sub Next cEnd SubNextEnd Sub Next cEnd Sub Application.ScreenUpdating = TrueEnd Sub NextEnd Sub Application.ScreenUpdating = TrueEnd Sub NextEnd SubSet OldCell = TargetEnd Subds.CopyFolder "D:\ExcelÖrnekleri", "C:\SXS"End SubWend End SubNext End SubEnd Sub
Next Picture End SubEnd IfEnd SubEnd IfEnd Sub End IfEnd SubSet OldCell = TargetEnd SubNext wShtEnd Sub sht.DrawingObjects.Delete Next ActiveWindow.Zoom = 80End SubNext ShEnd SubSheet1.Visible = xlSheetVeryHiddenEnd SubNext iEnd Sub Next mySheetEnd Sub Sheets(myArray).SelectEnd Sub Sheets(myArray).SelectEnd SubMsgBox SummenEnd Sub
MsgBox UserForm1.Controls.Count
MsgBox drvStrEnd Sub Application.ScreenUpdating = TrueEnd Sub
End Sublanceur = Shell("C:\windows\notepad.exe c:\ali.txt", 1)End SubCloseEnd Sub:=Array(1, 1)End Sub Application.StatusBar = "Fertig"End SubEnd IfEnd Sub
visual basic kodu: Shell "notepad.exe " & ActiveWorkbook.Path & "\deneme.txt" CmbSart_Change End Sub
UserForm1.Caption = "pir" End Sub SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000 End Sub SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF End Sub Unload Me End Sub Unload Me End Sub If CloseMode = vbFormControlMenu Then Cancel = True End SubEnd If End SubSheets("sayfa1").SelectEnd SubMe.HideEnd SubEnd IfEnd Sub MsgBox FindWindow("ThunderDFrame", "UserForm1")End Sub Application.QuitEnd SubUserForm1.Top = TrueEnd Sub End WithEnd Sub
ActiveWorkbook.Close FalseEnd Sub pir = TrueEnd Sub
End With End Sub UserForm1.Top = 425End Sub 0, UserformBreite, UserformHöhe, 1End SubApplication.ScreenUpdating = True End SubEnd With End Sub MoveWindow wHandle, 0, 0, BildschirmBreite, BildschirmHöhe, 1End SubEnd Sub
HarfHarf MeEnd Sub Range("E6").SelectEnd Sub Next End Sub SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFFEnd Sub SetWindowLong hWnd, GWL_STYLE, StyleEnd SubUserform1.Show End Sub SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000 End Sub SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000 End SubEnd Sub
End Sub End IfEnd SubEnd Sub
UserForm_Activate False End SubEnd Sub
WebBrowser2.Navigate "http://www.excel.web.tr/images/smiles/icon_hihoho.gif"End SubEnd IfEnd SubThisWorkbook.CloseEnd Sub
UserForm'un Properties lerinden ShowModal kısmını False yaparsanız UserForm aktif iken hücrelerde gezebilirsiniz
End Sub
SAAT.Caption = Format(Time, "hh:mm:ss")End SubApplication.OnTime zaman, "saat", , False End SubApplication.OnTime zaman, "saat", , False End SubCalendar1.Month = Month(Now) + 1 End SubEnd Sub
TextBox1 = Val(TextBox2.Value) + Val(TextBox3.Value) End Sub Workbooks("nomduclasseur.xls").Close FalseEnd Sub SetWindowLong hWnd, GWL_STYLE, StyleEnd Sub Next ctrlEnd Submsgbox a end sub Next ctrlEnd Sub Next ctrlEnd Sub [a2] = TextBox1.Text End SubUserForm1.ShowEnd SubEnd Sub
Application.Run "B.xls!ac"End Sub End IfEnd Sub Workbooks("Combo örnekleri.xls").Close TrueEnd SubSendKeys "{RIGHT}"End SubThisWorkbook.DialogSheets("Dialog1").ShowEnd Sub Sheets(dlg.ListBoxes(1).List(dlg.ListBoxes(1).ListIndex)).ActivateEnd Sub End IfEnd Sub Me.Height = 185End SubEnd IfEnd SubEnd IfEnd SubEnd IfEnd Sub Me.Top = 0 End SubEnd Sub
End With End Sub End With End Sub
End SubEnd IfEnd Sub If CloseMode = vbFormControlMenu Then Cancel = True End SubEnd Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox " Harf girilmeyecek,Sadece Rakam Giriniz ....." End Sub End If End Sub CommandButton2.Cancel = TrueEnd Sub If KeyCode = 27 Then Unload Me End SubUserForm4.Width = 320 End Sub Range("A3").Value = TextBox3.Value End Sub DrawMenuBar wHandle End Sub
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF End Sub SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF End SubTextBox1 = Val(TextBox2.Value) + Val(TextBox3.Value) End Sub End Sub
ComboBox1.ListIndex = 0 End Sub ComboBox1.ListIndex = 0 End Sub [a2] = TextBox1.Text End SubUserForm1.PrintForm End SubEnd Sub
DrawMenuBar wHandle End Sub
Appication.Run(varsa argümanlar1, varsa argümanlar2)
Bu kodu bir butona atayınız: Application.GoTo Reference:="test"
UserForm1.Caption = "pir" End Sub DrawMenuBar wHandle End SubHarfHarf Me End Sub .Enabled =True veya False yazmanız gerek. Kolay Gelsin. End If end subMsgBox "Mesaj Buraya!!", vbCritical, "Önemli" End SubMsgBox "aa", 16, "hata" End SubMsgBox "aa", 64, "hata" End SubMsgBox "Mesaj Buraya!!", vbCritical, "Önemli" End Sub Meld = MsgBox("Termin nicht vergessen!", 0, "A c h t u n g")End Sub If ActiveCell.AllowEdit = False Then MsgBox "BU HÜCRE KORUMA ALTINDADIR" End Sub Application.Caption = "Mahmut_Bayram"End SubWorksheets(1).Range("E1").ValueEnd Sub MsgBox Now()End Sub End WithEnd Sub Next jEnd Sub xlApp.Run (FormAc)End Sub
Next CellEnd Sub Next iEnd Sub Application.Goto Reference:="Makro1"End Sub
End Sub
End Sub
MsgBox iadeEnd SubApplication.ScreenUpdating = TrueEnd Sub End Sub
Next bakEnd Sub
End Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1End SubMsgBox "Hata oluştu!" & vbCrLf & Err.Number & " : " & Err.Description, vbCritical, "HATA OLUŞTU!"
Next rngRowEnd SubNext wcEnd SubEnd Sub
If KeyCode = 13 Then Cells(no, 1).ActivateEnd Sub
Application.CutCopyMode = FalseEnd Sub End Sub
End Sub
Cells.EntireColumn.AutoFitEnd Sub
Application.CutCopyMode = FalseEnd Sub Application.CutCopyMode = False 'kopyalanları iptal etEnd Sub
NextEnd Sub MsgBox mtextEnd Sub Next TestCellEnd Sub
End Sub WSH_Shell.RegDelete RegKeyEnd Sub Simdi2 = Now() If DateDiff("n", Simdi, Simdi2) <= 4 Then GoTo 30[/i]Call sndPlaySound32("D:\Programme\ICQ\Connect.wav", 0)End SubCall sndPlaySound32("C:\excel\warning.wav", 1)End SubEnd IfEnd SubEnd IfEnd SubCall sndPlaySound32("D:\Programme\ICQ\Connect.wav", 0)End SubExecuteExcel4Macro ("SOUND.PLAY(, ""C:\Windows\Media\Tada.wav"")")End SubsndPlaySound32("D:\Programme\ICQ\Connect.wav", 0)End Sub On Error GoTo 0 End Sub
End SubShell "c:\windows\winhelp.exe veenob3.hlp", vbNormalFocusEnd SubValRetour = Shell("C:\WINDOWS\Rundll32.exe shell32,SHExitWindowsEx")End Sub LResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)End SubNextEnd SubMsgBox MyMsg, vbInformation, "Programlar hakkında...... (Raider ®)"End SubMsgBox MyMsg, vbInformation, "BIOS Bilgileri (Raider ®)"End SubMsgBox MyMsg, vbInformation, "Ekran Kartı Bilgileri (Raider ®)"End SubMsgBox MyMsg, vbInformation, "Mouse Bilgileri (Raider ®)"End SubNextMsgBox MyMsg, vbInformation, "Network
End SubEnd Sub
End Sub'MyAppID = Shell("Winword.EXE ""C:\Mes documents\test.doc""", 1)End Sub
DataType:=2
End SubF3 .....
Next nEnd Sub End With End Sub Application.CommandBars("Cell").Controls(Nommer).DeleteEnd SubEnd Sub
Workbooks("pirsa.xla").IsAddin = FalseEnd SubEnd IfEnd With s1.Close End SubSelection.Interior.ColorIndex = xlNone End Sub StartTimer End Sub
yukarıdaki 4 lerin sebebini yukarıda söyledim.If Err > 0 Then yas = "Hata"End Function
=Yaş(A1) MsgBox "Yaş: " & Yaş & vbLf & "18 yaşıdan büyük" End IfNextEnd SubC.NumberFormat = TMPEnd SubActiveSheet.PageSetup.PrintArea = Selection.Address End Sub Range("A13").SelectEnd SubMsgBox zoneIMP.Address()End Sub Worksheets("Sayfa1").PrintOutEnd Sub
MsgBox "Yazdırma Alanı: " & ActiveSheet.PageSetup.PrintAreaEnd If
'Bu örnek A1 hücresi 1 den farklı ise yazdırmayı iptal eder
s1.AutoFilter.Filters.Item(4).On Then Secilmiş = True '4 alanda seçim yapılıp yapılmadığını kontrol ediyor.MsgBox ("üzgünüz çıktı almak yasak")End SubIf ActiveSheet.Name = "Sheet1" Then Cancel = True End Sub End IfEnd Sub ActiveSheet.PrintOutEnd SubActiveSheet.PageSetup.PrintArea = "$B$1:$F$50" ActiveSheet.PrintOut Copies:=1 .Font.Bold = TrueEnd Sub Application.Dialogs(xlDialogPrinterSetup).ShowEnd SubValRetour = Shell("C:\WINDOWS\RUNDLL32.EXE msprint2.dll,RUNDLL_PrintTestPage", 1)End Sub End IfEnd SubpcbNeeded As Long, pcReturned As Long) As LongPrivate Declare Function lstrlenA Li End WithEnd Sub End WithEnd Sub
Application.Dialogs(xlDialogFormatFont).ShowEnd Sub & Chr(13) & " sonst nur ein Kästchen" & TextEnd SubNextEnd Sub
MsgBox "Dosya ismini kontrol edip tekrar deneyiniz.", vbExclamation, "UYARI!!!!!!!"End Sub Application.DisplayAlerts = TrueEnd SubActiveWorkbook.SaveCopyAs isimEnd Sub End WithEnd SubApplication.Dialogs(xlDialogNew).ShowEnd SubApplication.Dialogs(xlDialogOpen).ShowEnd Sub Sheets(ActiveSheet.Name).Name =sheets("sayfa1"). [a1].valueEnd Sub Sheets("Sayfa1").Copy After:=Workbooks("Kitap1").Sheets(1)End Sub End Sub Sh.Move After:=Sheets(Sheets.Count)End Sub Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1) End Function Application.Dialogs(xlDialogNewWebQuery).ShowEnd Sub MsgBox " Sayın " & yer & " [email protected] Programına Hoş Geldiniz!" 'mesaj ver Başına Sayın koy birleştir(&) tanımlı yer ile birleştir(&) evrağınız gelen-giden evrak defterine kayıt edilmiştir.End Sub Me.Move Application.Width / 2 - Me.Width / 2, Application.Height / 2 - Me.Height / 2 End SubMsgBox Day([A1]) & "." & Month([A1]) & "." & Year([A1]) + [B1] End Sub Range("A1").SelectEnd SubEnd SelectEnd Function Next cEnd Sub Next iEnd Sub SetWindowRgn mWnd, CreateRoundRectRgn(0, 0, x, y, n, n), True End Sub SetWindowRgn mWnd, CreateRoundRectRgn(0, 0, x, y, n, n), True End SubMsgBox ("yüklü bir yazıcı yok veya yazınız açık değil") End SubEnd If End Sub Next i End SubNext iEnd Sub
Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm" End SubKapatForm1 End Sub Application.OnTime TimeValue("12:00:00"), "makro"'End Sub
sizin yaptığınızdan esinlenerek şöyle bir şey yaptım. O da sadece 1. satırla 2. satır arasına 7 tane satır ekledi. Yani döngüde ilk if'in sağlandığı yere.
MsgBox Say2.Name & "'de aramış olduğunuz " & Veri & " verisini içeren toplam " & Sayac & " adet hücre değeri bulundu ve " & Say1.Name & "'de listelendi."
edit : yukarıdaki örnekteki gibi aplication 'un screenupdate'i daha sonra kullanılmayacaksa, true yapmak mantıksızdır. iş bittiğinde zaten otomatik olarak true olur.
edit : yukarıdaki örnekteki gibi aplication 'un screenupdate'i daha sonra kullanılmayacaksa, true yapmak mantıksızdır. iş bittiğinde zaten otomatik olarak true olur.
not: soru basliginizi seceken "makro hakkinda" gibi cok amator bir baslik secmektense, " bir kitaptaki sayfalari baska bir kitaba tasimak" gibi ilk okundugunda anlasilacak sorulardan secmek cok daha hizli cevap almanizi saglar. aklinizda bulunsun.
ActiveWorkbook.SaveCopyAs Filename:=Phad & "\" & Format(Now, "DD-MM-YY_hh-mm") & "_Backup_Beispielmappe_113.XLS"
MsgBox "Mesaj boxlarda satır başı yapamıyorum." & vbCrlf & "Bunun bir yolu olmalı !" & vbCrlf & "Acaba vbCrlf kullanırsam ne olur?", vbinformation
Target.NoteText "Die Zelle wurde am " & Format(Date, "dd.mm.yy") & " um " & Format(Now(), " hh:mm:ss") & " durch " & ActiveWorkbook.BuiltinDocumentProperties(7).Value & " geändert."
=EĞER(A1="OCAK";OCAK!A1;EĞER(A1="ŞUBAT";ŞUBAT!A1;EĞER(A1="MART";MART!A1;EĞER(A1="NİSAN";NİSAN!A1;EĞER(A1="MAYIS";MAYIS!A1;EĞER(A1="HAZİRAN";HAZİRAN!A1))))))+EĞER(A1="TEMMUZ";TEMMUZ!A1;EĞER(A1="AĞUSTOS";AĞUSTOS!A1;EĞER(A1="EYLÜL";EYLÜL!A1;EĞER(A1="EKİM";EKİM!A1;EĞER(A1="KASIM";KASIM!A1;EĞER(A1="ARALIK";ARALIK!A1))))))
Yapmanız gereken hazırladığınız UserForm'u ve ilişkili modülleri File menüsünden Export etmek ve daha sonra Visual Basic'i açarak Import etmeniz yeterli olacaktır. Artık File menüsünden Make Exe komutunu tıklayarak exe halinde derleyebilirsiniz.
Burada listeniz a ve b surunlarında olduğunu ve devamlı şekilde liste sayfasına aktaracağınızı hesap ederek yapılmıştır
Protect Shared Workbook = Sharing with track changes , seçeneği aktif edilirse Aynı dosyaya birden çok kullanıcı Read Only olmadan bağlanabilir ve Save edildiği anda diğer kullanıcıların Save ettikleri görülebilir
Daha fazla veri aktarılacaksa 14'den sonra ilave edin..Ayrıca bu aktardığın verileri herhangi bir proğrama adapte edeceksen karakter sayılarına dikkat et.Kolay Gelsin.
Görüleceği üzere, Excel in kolaylıklarını (özelliklerini) daha verimli kullanırsanız, Excel de sizi hamallıktan (rutin işlerden) kurtaracaktır
ActiveWorkbook.SaveCopyAs FileName:=StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDatei
Range(“A1:E10”).Cut Selection.Cut
aralığı ayarlayabilirsin. Tek şart daha önceden elle A1 A20 arasına içi boş olan bir açıklama eklemen.(Ama içi boş olsun.Başlığı dahi olmasın)A1 ile A20 arasındaki herhangi bir hücrede değişiklik yaptığın an, o hücreye ait açıklamada, o hücrede yaptığın değişiklik "tarih / eğişiklik" şeklinde kendiliğinden eklenir.
MsgBox (IIf(IIf(Range("I2").Value = Range("E2").Value, Range("G2").Value - Range("F2"), (Range("G2").Value - Range("F2").Value) - Range("A500").Value) > 0, IIf(Range("I2").Value = Range("E2").Value, Range("G2").Value - Range("F2"), (Range("G2").Value - Range("F2").Value) - Range("A500").Value), 0))
Bu ilk sorunuza cevap olabilir. Çalışmanız ne şekilde tam bilemiyorum ama sanki Koşullu Biçimlendirme daha çok işinizi görür gibi geldi bana. C sütununu seçip Biçim>Koşullu Biçimlendirme>eşit değil>=a1 deyip biçim ayarından da rengini değiştirseniz hem eşit olmayan hücreyi hem de toplamın eşit olup olmadığını görürsünüz. Üstelik Tamam'a tıklama olmadan hemen düzeltme yapabilirsiniz.
Call Shell("c:\windows\system32\rasdial.exe " & Chr$(34) & "ttnet" & Chr$(34) & " " & "sirenko" & " " & "sifre")
Kodlar çalıştırılmadan önce yapılması gereken ise; kullanıcının C:\Test.xls ve C:\UserForm1.frm dosyalarını kendi bilgisayarlarında, kodlarda belirtilen yerlere yerleştirmiş olmasıdır.
ActiveWorkbook.SaveCopyAs FileName:=StPhad & "\" & Format(Now, "DD-MM-YY") & "_" & Format(Now, "hh-mm") & "_" & StDatei
Vba penceresinde kod yazarken örneğin Worksheets yazacaksınız, ancak bunu açılır pencereden seçmek için CTR + J yi, önerme veya tamamlama için ise CTR + ARA ÇUBUĞU'nu kullanabilirsinizActiveCell.Formula = [b3].Text & ":\" & [c3].Text & "\" & [d3].Text & "\" & [e3].Text & "\[" & [e4] & ".xls]" & [e5] & " '!" & [e6]
'Ayrıca Textbox2'nin Properties kısmında bulunan "PasswordChar" bölümüne "*" (yıldız) işareti koyarsanız girilen parola ekranda "*****" şeklinde görünecektir.
Eğer amaç kullanıcıdan makroları gizlemekse; makroların olduğu modulün en üstüne aşağıdaki satırı yerleştirdiğinizde, kullanıcı bahsettiğiniz menüler aktifken bile sözkonusu moduldeki makrolar listelenmez. Çünkü o modül tıpkı sayfa veya UserForm modulleri gibi "Private-Özel" bir modül olacaktır.
MsgBox "Mesaj boxlarda satır başı yapamıyorum." & vbCrlf & "Bunun bir yolu olmalı !" & vbCrlf & "Acaba vbCrlf kullanırsam ne olur?", vbinformation
iade2005 = Round(Switch(tutar > 6600, (tutar - 6600) * 0.04 + 462, tutar > 3300, (tutar - 3300) * 0.06 + 264, tutar <= 3300, (tutar) * 0.08), 2)
yapmanız gereken a2 den itibaren aşağı doğru verilerinizi yapıştırmak. ve b1, c1, d1, e1 ....... gerektiği kadar alınması gereken parça boyutlarını girmek. yukarıdaki kodu şekilde görülen butonun içine yapıştırın.
MsgBox "Heute ist der " & Date & "," & Chr$(13) & Chr$(13) & " es ist " & Time & " Uhr.", vbOKOnly, "www.excel-lex.de.vu"
MsgBox Say2.Name & "'de aramış olduğunuz " & Veri & " verisini içeren toplam " & Sayac & " adet hücre değeri bulundu ve " & Say1.Name & "'de listelendi."
Worksheets(1).Shapes.AddTextbox(msoTextOrientationHorizontal, w, h, 200, 50).TextFrame.Characters.Text = "Test Box"
Sheets("Anasayfa").ScrollArea = "c5" End Sub
- --> D sütununda “ist.” Sözcüğü aranıyor.Bulunan ilk hücrenin adresi hücre değişkenine atanıyor.What , find metodun bir argümanıdır.
Başlat / Çalıştır 'a regedit yazıp enter'e basın. Aşağıdaki görülen resimdeki adrese ulaşın. Kaydı orada göreceksiniz.
Başlat / Çalıştır 'a regedit yazıp enter'e basın. Aşağıdaki görülen resimdeki adrese ulaşın. Kaydı orada göreceksiniz.
B1 ve C1 hücresindeki formülleri listeniz uzunluğunca kopyaladığında listenizdeki bütün kayıtlar "Adı" ve "Soyadı" halinde 2 farklı sütuna kopyalanmış olacaktır.
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox " Harf girilmeyecek,Sadece Rakam Giriniz ....."
MsgBox TextBox1.Text & " İSİMLİ ŞAHISIN KAYDI GÜNCELLENMİŞTİR.", vbInformation + vbOKOnly, "KAYIT GÜNCELLENDİ"If IsNumeric(TextBox1) Then MsgBox "KAYDETMEKTE OLDUĞUNUZ KART BÖLÜM KARTIDIR. PERSONEL İÇİN BU KART KODUNUN ALTINDA PERSONEL KARTLARI AÇINIZ, DEVAM ETMEK İSTEDİĞİNİZDEN EMİN MİSİNİZ?", vbQuestion + vbYesNo
Bu kodu bir butona atayınız: Application.GoTo Reference:="test"
MsgBox " Sayın " & yer & " [email protected] Programına Hoş Geldiniz!" 'mesaj ver Başına Sayın koy birleştir(&) tanımlı yer ile birleştir(&) evrağınız gelen-giden evrak defterine kayıt edilmiştir.
not: soru basliginizi seceken "makro hakkinda" gibi cok amator bir baslik secmektense, " bir kitaptaki sayfalari baska bir kitaba tasimak" gibi ilk okundugunda anlasilacak sorulardan secmek cok daha hizli cevap almanizi saglar. aklinizda bulunsun.
=EĞER(A1="OCAK";OCAK!A1;EĞER(A1="ŞUBAT";ŞUBAT!A1;EĞER(A1="MART";MART!A1;EĞER(A1="NİSAN";NİSAN!A1;EĞER(A1="MAYIS";MAYIS!A1;EĞER(A1="HAZİRAN";HAZİRAN!A1))))))+EĞER(A1="TEMMUZ";TEMMUZ!A1;EĞER(A1="AĞUSTOS";AĞUSTOS!A1;EĞER(A1="EYLÜL";EYLÜL!A1;EĞER(A1="EKİM";EKİM!A1;EĞER(A1="KASIM";KASIM!A1;EĞER(A1="ARALIK";ARALIK!A1))))))
Yapmanız gereken hazırladığınız UserForm'u ve ilişkili modülleri File menüsünden Export etmek ve daha sonra Visual Basic'i açarak Import etmeniz yeterli olacaktır. Artık File menüsünden Make Exe komutunu tıklayarak exe halinde derleyebilirsiniz.
MsgBox (IIf(IIf(Range("I2").Value = Range("E2").Value, Range("G2").Value - Range("F2"), (Range("G2").Value - Range("F2").Value) - Range("A500").Value) > 0, IIf(Range("I2").Value = Range("E2").Value, Range("G2").Value - Range("F2"), (Range("G2").Value - Range("F2").Value) - Range("A500").Value), 0))
Bu ilk sorunuza cevap olabilir. Çalışmanız ne şekilde tam bilemiyorum ama sanki Koşullu Biçimlendirme daha çok işinizi görür gibi geldi bana. C sütununu seçip Biçim>Koşullu Biçimlendirme>eşit değil>=a1 deyip biçim ayarından da rengini değiştirseniz hem eşit olmayan hücreyi hem de toplamın eşit olup olmadığını görürsünüz. Üstelik Tamam'a tıklama olmadan hemen düzeltme yapabilirsiniz.
Eğer amaç kullanıcıdan makroları gizlemekse; makroların olduğu modulün en üstüne aşağıdaki satırı yerleştirdiğinizde, kullanıcı bahsettiğiniz menüler aktifken bile sözkonusu moduldeki makrolar listelenmez. Çünkü o modül tıpkı sayfa veya UserForm modulleri gibi "Private-Özel" bir modül olacaktır.
If IsNumeric(TextBox1) Then MsgBox "KAYDETMEKTE OLDUĞUNUZ KART BÖLÜM KARTIDIR. PERSONEL İÇİN BU KART KODUNUN ALTINDA PERSONEL KARTLARI AÇINIZ, DEVAM ETMEK İSTEDİĞİNİZDEN EMİN MİSİNİZ?", vbQuestion + vbYesNo
=EĞER(A1="OCAK";OCAK!A1;EĞER(A1="ŞUBAT";ŞUBAT!A1;EĞER(A1="MART";MART!A1;EĞER(A1="NİSAN";NİSAN!A1;EĞER(A1="MAYIS";MAYIS!A1;EĞER(A1="HAZİRAN";HAZİRAN!A1))))))+EĞER(A1="TEMMUZ";TEMMUZ!A1;EĞER(A1="AĞUSTOS";AĞUSTOS!A1;EĞER(A1="EYLÜL";EYLÜL!A1;EĞER(A1="EKİM";EKİM!A1;EĞER(A1="KASIM";KASIM!A1;EĞER(A1="ARALIK";ARALIK!A1))))))
Bu ilk sorunuza cevap olabilir. Çalışmanız ne şekilde tam bilemiyorum ama sanki Koşullu Biçimlendirme daha çok işinizi görür gibi geldi bana. C sütununu seçip Biçim>Koşullu Biçimlendirme>eşit değil>=a1 deyip biçim ayarından da rengini değiştirseniz hem eşit olmayan hücreyi hem de toplamın eşit olup olmadığını görürsünüz. Üstelik Tamam'a tıklama olmadan hemen düzeltme yapabilirsiniz.