VBA & Excel ve Makrolar Örnekler Sorunlar (2. sayfa)

quote:

Orijinalden alıntı: serseri

Userform Kullanımı

VBA önemli noktalardan biriside userform kullanımıdır. Nasıl Visual Basicte userformlarla çalışılıyorsa Excel içine de userformu ekleyerek kod yazıp form yapabiliriz.

Yeni bir form tasarlayabilmek için Visual Basic Düzenleyicisinden Insert bölümünden Userform'u seçebiliriz. Karsımıza bir form gelecektir. Bu form bilinen boş bir Visual Basic sayfasıdır. Buraya yine text box,command button gibi visual basice hitap eden kontroll menülerini koyabiliriz.

örnek olarak basit bir liste hazırlayacagız. Bunun için formumuza Kaydet,Formu Temizle ve Çıkış butonları ekledik. Liste olarak ben öğrenci listesi düşündüm. Siz personel listesi,malzeme listesi gibi farklı (ihtiyaca göre) listeler tasarlayabilirsiniz.

Programın çalışır haldeki ekran görüntüsü şu şekildedir;

Görüldüğü gibi forma öğrencileri ait bilgileri girmek üzere Adısoyadı,doğum tarihi ve yeri gibi (bunlar çoğaltılabilir) bilgilerin girişi için textboxlar eklenmiştir.

Program adımında ilk userforma giriş yapmamızı sağlayan bir command butonu ekliyoruz. Öğrenci Bilgileri isimli bu buton ile frmogrenci adını verdiğimiz userforma ulasabiliyoruz. Bu butonu kodları ise

Private Sub CommandButton1_Click()
Sheets("deneme").Select
frmogrenci.Show
End Sub

şeklindedir. Burada excel çalışma sayfasını ben "deneme" ismiyle kaydettiğim için böyledir.

Daha sonra formda yer alan üç butonun kodları ise şu şekildedir. (Bu kodları VB düzenleyici içinde kodlar sayfasının solunda yer alan menüde FORMS içinde bulunan "frmogrenci" formunun içindeki yerlere yazıyoruz)

Yeni Kayıt Ekle ;

Private Sub cmdkayit_Click()
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a2").Value = 1
Range("a2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = txtogradi
ActiveCell.Offset(0, 2).Value = txtdtarihi
ActiveCell.Offset(0, 3).Value = txtdyeri

aciklama = "Kayıt İşlemi Başarıyla Tamamlandı"
dugme = vbOKOnly + vbInformation + vbDefaultButton1
baslik = "kayit"
MsgBox aciklama, dugme, baslik
End Sub

Yeni verilerin a2 hücresinden baslayacagı düsünülerek tasarlanmıştır. A2 bos ise "textogradi" değeri B' hücresine eklenmektedir. Mantık bu şekildedir. Bunun için DO WHILE döngüsü kullanılmıştır.

Kayıt sonundda İşlem tamamlandı uyarısını içeren MsgBox eklenmiştir.

Formu Temizle;

Private Sub cmdtemizle_Click()
txtogradi = ""
txtdtarihi = ""
txtdyeri = ""
End Sub

Bu buton daha önceki kayıttan kalan bilgilerin temizlenmesini sağlamaktadır.

Çıkış;

Private Sub CommandButton3_Click()
Unload frmogrenci
End Sub

Formdan çıkışı sağlamaktadır.



Basit ve kısa zamanda hazırlanmış birşey oldugundan sorun çıkabilir. Örneğin aynı isim yanlıslıkla iki kere eklenebilir. (Bunun için ayrı kod gerekir) ya da hücrelerde gereksiz doluluklar sistemin bütünlüğünü bozabilir.

Elbetteki çeşitli kodlarla bütün bu aksaklıklar düzeltilebilir ve hatta genişletilebilir bu da VBA meraklılarına kalmış bir iştir....

Alıntıları Göster

quote:

Orijinalden alıntı: serseri

http://www.mousetrax.com/TechCourses.html

adresinden ücretsiz e-kitap indirebilirsiniz. Baya işe yarar, fakat hatırlatayım dil malesef ingilizce...


http://www.mindspring.com/~tflynn/excelvba.html

sitesinde örnek kodlar mevcut


http://wordtips.vitalnews.com/W189_VBA_Examples.html

bu sitede de güzel kodlar mevcut

Alıntıları Göster

quote:

Orijinalden alıntı: johonwayni

teşekkürler arkadaşlar

kitraplar TR olsa idi cok iyi olacakti ama ne yapalim

Alıntıları Göster

quote:

Orijinalden alıntı: simge_simge

excelde imleç kaybetme hakkında bir bilgisi olan varsa yardımcı olablir mi acaba ??

Alıntıları Göster

quote:

Orjinalden alıntı: simge_simge

excelde imleç kaybetme hakkında bir bilgisi olan varsa yardımcı olablir mi acaba ??

quote:

Orijinalden alıntı: serseri

quote: Orjinalden alıntı: simge_simge excelde imleç kaybetme hakkında bir bilgisi olan varsa yardımcı olablir mi acaba ??

System.Cursor = wdCursorWait
System.Cursor = wdCursorIBeam
System.Cursor = wdCursorNormal


Ne derece işine yarar bilmiyorum...

Alıntıları Göster

quote:

Orijinalden alıntı: TOPTANCI

Hocam, başka bir çalışma kitabındaki macroyu kendi oluşturacağım çalışma kitabında kullanmak istiyorum. Nasıl yapabilirim?

Alıntıları Göster

quote:

Orijinalden alıntı: serseri

Tam anlayamadım ama muhtemelen aynı kodları yeni bir projede kullanmak istiyorsun. Bunun için yeni projenin altyapısını (algoritması) eski projeye göre ayarlamalısın. Yapılacak ufak değişiklikler ile VB Düzenleyicisine eski kodları yazmalısın. Hepsi bu

Alıntıları Göster

quote:

Orijinalden alıntı: StranGe_PassenGer

Notpaddeki dataları excel aktarma konusunda basit bir örnek kod vermek istiyorum ben de. Aynı işlemi 3 farklı şekilde yapacağım.

Referanslar:
Microsoft Scripting Runtime - Dosyalar üzerinde windows işlemlerini yapmak için
Microsoft Excel 11.0 Object Library - Excel otomasyonu için

C nin içinde kullanici1.xls dosyasını ve kullanici1.txt dosyalarını kendim oluşturdum.

kullanıcı1.txtnin içinde: isim-soyad-babaadi-dogum tarihi alt alta sıralanmış farzedelim.Her kişiye 4 satır ayrılmış.

quote: mustafa al ahmet ankara mehmet ali veli samsun

 
   
   
  Private Sub not2ex1() 
   
  Open "C:\kullanici" & Trim(Str(1)) & ".txt" For Input As #1 'kullanici1 dosyasını açar 
  Set ex1 = CreateObject("excel.Application")  
  ex1.Workbooks.Open ("C:\kullanici1.xls") 
  kisisayisi = 0 
  While Not EOF(1) 
   
          If EOF(1) Then 
              GoTo bitir 
          End If 
           
          kisisayisi = kisisayisi + 1 
          For i = 1 To 4 
          Line Input #1, satir 'döngü içinde satırları okuyacak 
   
          If i = 1 Then 
          ex1.Range("a" & Trim(Str(kisisayisi))).Value = satir 
   
          End If 
   
          If i = 2 Then 
           ex1.Range("b" & Trim(Str(kisisayisi))).Value = satir 
   
          End If 
   
           If i = 3 Then 
           ex1.Range("c" & Trim(Str(kisisayisi))).Value = satir 
   
          End If 
           If i = 4 Then 
           ex1.Range("d" & Trim(Str(kisisayisi))).Value = satir 
   
          End If 
           
          Next i 
            
            
                 
  Wend 
   
  bitir: 
  ex1.ActiveWorkbook.Save 
  ex1.Workbooks.Close 
  Close #1 
   
  End Sub 
   
  

Biz böylelikle excel dosyamızın birinci satırınadaki hücerelere sırasıyla
mustafa al ahmet ankara
mehmet ali veli samsun
yazdık. Bunların üst tarafına başlık yazar gibi "isim" "soyad" "babaadi" "doğumyeri" gibi bilgileri ekleyebilirz.

Yukardaki kod uzun bir yol. Bunun daha kolay bir kaç yolu daha var.

Alıntıları Göster

quote:

Orijinalden alıntı: StranGe_PassenGer

Bu da dizi mantığı ile aynı işlemi yapan kod.

ex1.Range(harfler(i) & Trim(Str(kisisayisi))).Value = satir

bu kod satırı yıkardaki iflerin yaptığı işi tek başına yapıyor.

 
  Dim harfler(100) As String 
   
  Private Sub not2ex1_2() 
   
  harfler(1) = "b" 
  harfler(2) = "a" 
  harfler(3) = "c" 
  harfler(4) = "d" 
  harfler(5) = "e" 
   
  Open "C:\kullanici" & Trim(Str(1)) & ".txt" For Input As #1 'kullanici1 dosyasını açar 
  Set ex1 = CreateObject("excel.Application") 'Open("C:\kullanici1.xls") 
  ex1.Workbooks.Open ("C:\kullanici1.xls") 
  kisisayisi = 0 
   
  While Not EOF(1) 
   
          If EOF(1) Then 
              GoTo bitir 
          End If 
           
          kisisayisi = kisisayisi + 1 
          For i = 1 To 4 
          Line Input #1, satir 'döngü içinde satırları okuyacak 
          ex1.Range(harfler(i) & Trim(Str(kisisayisi))).Value = satir 
          Next i 
            
                 
  Wend 
   
  bitir: 
  ex1.ActiveWorkbook.Save 
  ex1.Workbooks.Close 
  Close #1 
   
  End Sub 
  

Alıntıları Göster

quote:

Orijinalden alıntı: erdaldemir

Selam arkadaşlar.

Soru sorma linki bulamadım sayfada, buradan yazıyorum.

Benim bir çalışma yapmam gerekiyor.
Yardımcı olabileceklere şimdiden çok teşekkür ederim.
Temel Korkmaz'ın kitabını da karıştırdım ama, benzer örnek bulamadım.

TOPLAM sayfasındaki A sütununda 1000 adet stok kodu var. B ve C sütunlarına, RAPOR sayfasındaki stok kodlarına uygun olarak ADET ve TUTAR girilecek.

RAPOR sayfasındaki A sütununda, o aya ait satış yapılan ürünlerin stok kodu, B sütununda ADET, C sütununda da TUTAR var.

RAPOR sayfasındaki stok kodlarını tek tek TOPLAM sayfasında bulup satış adet ve tutarlarını soldaki sayfanın sütunlarına elle girmek yerine otomatik nasıl aktarabilirim?

Şimdiden çok teşekkür ediyorum.

Hoşçakalın.
Erdal Demir

quote:

Orijinalden alıntı: DoubleDragon

Makro yazmak için Visual Basic şart mı? C# ile aynı işi görecek bir şeyler yapılamaz mı?

Alıntıları Göster

quote:

Orijinalden alıntı: hamit70

merhaba,
benim sorum şu olacak.
excel ile hazırlanmış bir tablonun bir sütunu 13 karakterden oluşan rakamlar le dolu. fakat bu rakamlar birbirinden hiç ayrılmadan yzaılmış. benim isteğim; b rakamları 4.2.3.4 basamaklı olarak yazdırabilmek. mesela 1234567890123 şeklinde bir rakamı 1234.56.789.0123 olarak görünmeli. rakamlar arasında bazen harflerin olduğunu da hatırlatmam gerek snırım. şimdiden tşkler

Alıntıları Göster

quote:

Orijinalden alıntı: serseri

Excel - Access İlişkisi

Access kayıtlarını Excel'e kopyalama

Access'ten, herhangi bir veri sayfası görünümünden veya veri erişim sayfası denetiminden veri kopyalayabilir ve bu verileri Excel'e yapıştırabilirsiniz. Seçtiğiniz birkaç Access kaydının statik bir anlık görüntüsünü istiyorsanız bu yöntemi kullanabilirsiniz.

Ayrıca, bir Access tablosundan (tablo: Belirli bir konu hakkında, kayıtlar (satırlar) ve alanlarda (sütunlar) depolanan verileri topluluğu.), sorgusundan (sorgu: Query veya Access'te, veritabanında depolanan veriler hakkında sorduğunuz belirli bir soruyu yanıtlayan kayıtları bulma yolu.) formundan veya raporundan Excel çalışma kitabına veri kaydedebilirsiniz. Büyük miktardaki Access verisine ilişkin statik bir anlık görüntü istiyorsanız bu yöntemi kullanabilirsiniz.
Not Access veritabanı her değiştiğinde Excel'deki verileri yenilemeniz (yenileme: Verileri bir dış veri kaynağından güncelleştirme. Verileri her güncelleştirmenizde, veritabanındaki bilgilerin en son sürümünü, veriler üzerinde yapılan değişikliklerle birlikte görürsünüz.) gerekmediğinde bu yöntemleri kullanın.

Excel'e yenilenebilir Access verileri getirme

Access veritabanı değiştiğinde çalışma sayfasındaki verileri yenilemek isterseniz;( örneğin, her ay dağıtımını yaptığınız bir Excel özetinin geçerli ayın verileriyle güncellenmesini istiyorsanız) verileri Excel'e getirmek için bir sorgu veya bir Office Veri Bağlantısı dosyası oluşturabilirsiniz. Birden fazla tablodan veri almanız gerekiyorsa bir sorgu oluşturun veya alınan verilerin kapsamını değiştirmeniz gerekip gerekmediğini düşünün. Veritabanında yalnızca bir tablodaki verilerin tümünü almak istiyorsanız bir Office Veri Bağlantısı dosyası kullanın. Verileri Excel'e dış veri aralığı (dış veri aralığı: Bir çalışma sayfasına getirilen, ancak Excel'in dışından, örneğin bir veritabanı veya metin dosyasından kaynaklanan bir veri aralığı. Excel'de verileri biçimlendirebilir veya başka verilerle yaptığınız gibi hesaplamalarda kullanabilirsiniz.) veya Özet Tablo raporu (Özet Tablo raporu: Excel'in dışındakileri de kapsayan çeşitli kaynaklardan gelen veritabanı kayıtları gibi verileri özetleyen ve çözümleyen, etkileşimli, çapraz sekmeli bir Excel raporu.) olarak döndürebilirsiniz. Bunların her ikisi de yenilenebilir.

Excel verilerini yönetmek için Access kullanma

Access veritabanıyla Excel verileri arasından bağlantı kurma Bir Access veritabanına tablo (tablo: Belirli bir konu hakkında, kayıtlar (satırlar) ve alanlarda (sütunlar) depolanan verileri topluluğu.) olarak Excel aralığı bağlayabilirsiniz. Aralığı Excel'de korumaya devam etmeyi planlıyor, ancak Access içinden de kullanılabilir olmasını istiyorsanız bu yöntemi kullanın. Bağlantılı Excel aralığındaki verileri Access veritabanından görüntüleyebilir ve güncelleştirebilirsiniz. Bu tür bağlantıları Excel'den değil, Access veritabanından kurun.

Access veritabanına Excel verileri aktarma Access'te çalışıyor ve veritabanınıza bir Excel çalışma kitabından veri kopyalamak istiyorsanız, verileri Access'e aktarabilirsiniz. Excel'de tutmayı planladığınız küçük bir grup verinin kopyasını varolan bir Access veritabanına, verileri yeniden yazmadan getirmek için bu yöntemi kullanın.

Excel aralığını Access veritabanına dönüştürme Kalıcı olarak Access veritabanına taşımak istediğiniz büyük bir Excel aralığınız varsa, Access veri yönetimi yeteneklerinden, güvenliğinden veya çok kullanıcı yeteneğinden yararlanmak için, verileri Excel'den bir Access veritabanına dönüştürebilirsiniz. Verileri Excel'den Access'e taşımak ve taşıdıktan sonra artık Access'te kullanmak ve korumak için bu yöntemi kullanın.

Excel verilerinden Access raporu oluşturma Access raporları tasarlama konusunda bilgi sahibiyseniz ve Excel verilerinizi bu tür bir raporda özetlemek ve düzenlemek istiyorsanız, Excel aralığınızdaki verilerden bir Access raporu oluşturabilirsiniz.

Excel verileri girmek için Access formu kullanma Excel aralığında veri girmek, bulmak ve silmek için özelleştirilmiş bir form kullanmak isterseniz, aralığınız için bir Access formu oluşturabilirsiniz. Örneğin sırası çalışma sayfanızdaki sütunların sırasından farklı olan bir Excel aralığı için giriş yapmanızı sağlayacak Access formu oluşturabilirsiniz. Bu yöntemi, Access formlarındaki belirli özelliklerin kullanılabilir olmasını istediğinizde kullanın.


Alıntı :http://office.microsoft.com/tr-tr/excel/HP052349701055.aspx

Alıntıları Göster

quote:

Orijinalden alıntı: hakanbehcan

Hamit70 in problemi çok basit çözülebilir. Koda gerek yok.
=PARÇAAL(B3;1;4)&"."&PARÇAAL(B3;5;2)&"."&PARÇAAL(B3;7;3)&"."&PARÇAAL(B3;10;4)

ayrıca başta KodGenTR olmak üzere bir çok forum var sadece bukonular için.

Alıntıları Göster

quote:

Orijinalden alıntı: Lastruth

excelde sizin forumda verdiğiniz büyük küçük hafr değiştir formülünü visual basicde modül açarak yapıştırıp kaydediyorum.kitap1 olarak kaydediyor ve sadece kitap1 i açtığımda bu makroyu görebiliyorum.tüm excel belgelerine bu makroyu nasıl uygulayabilirim?her excel sayfası açtığımda aynı formülü yazmam gerekmiyordur herhalde...vaktiniz olur cevaplarsanız sevinirim.teşekkürler

quote:

Orijinalden alıntı: LesEnfantsTerribles

Arkadaşlar aşağıdaki lvideodaki gibi excelde bir labirent hazırlamam gerekiyor. labirenti oluşturdum fakat yön tuşlarına ve imlece görev atayamıyorum. makro kaydetmem lazım yardımcı olurmusuuz? office 2007 türkçe kullanıyorum.

Videoyu Göremiyorum

Alıntıları Göster

quote:

Orijinalden alıntı: musÁKka

sağollllll