Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Vba kodları..Ustalara dUYrUlur !! by CaYLaK !!
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
Aynı sorun bende de var. Biri açıklarsa sevinirim. -
quote:
Orjinalden alıntı: HaDeS88
Arkdaslar excelde yaptıgım calışmada userform daki herhangi bir textbox taki bilgileri nasıl kayıt ederiz ? bunun kodları nelerdir ? DoSya ya KAyıt etmE imkanı VARMI ?
Elbette vardır; Ama Excel içerisinde kullanıp kayıt etseniz daha kolay olur galiba ! yani
önce içerikten aktarma yaparsınız...
worksheet1.(Herhangibir satırına) = userform1.textbox1.text
Worksheet1.Save
..gibi
yok eğer işinize gelmiyor farklı bir yöntem istiyorsanız "Open" deyimini kullanarak harddiskte farklı bir metin dosyası içeriğinede alabilirsiniz. Hazırladığım bir zil programını kodlarını açmıştım kodları indirip inceleyerek Open deyimini nasıl kullanacağınızı öğrenebilirsiniz.
Kolay gelsin....
-
COOK SAGOL .... birde combox içini nasıl doldura bilirim !! -
quote:
Orjinalden alıntı: HaDeS88
COOK SAGOL .... birde combox içini nasıl doldura bilirim !!
Combobox1.Additem ("İtem ekle")
...
Her yeni eklediğin itemi bir alta ekler ...
-
COOK SAGOL DOSTUM YAA ALLAH RAZI OLSUN !! -
quote:
Orjinalden alıntı: HaDeS88
COOK SAGOL DOSTUM YAA ALLAH RAZI OLSUN !!
Allah hepimizden razı olsun , ama Gayret olmadan sonuç olmaz bunu unutma, olsa bile(!!) kıymetli olmaz!
-
Aspci79 oks onu yaptım calısıyo .... bide bunlara baksan..
1- Combobox1.Additem ("İtem ekle") bunu yaptım yazınca otomatik tamamlıyo okey ama oka basınca gözükmesi nasıl olacak ??
2- Userformdaki bilgileri kayıt etmek biryere yada excel sayfasına ??
< Bu mesaj bu kişi tarafından değiştirildi HaDeS -- 7 Mayıs 2005, 15:16:39 > -
quote:
Orjinalden alıntı: HaDeS88
Aspci79 oks onu yaptım calısıyo .... bide bunlara baksan..
1- Combobox1.Additem ("İtem ekle") bunu yaptım yazınca otomatik tamamlıyo okey ama oka basınca gözükmesi nasıl olacak ??
2- Userformdaki bilgileri kayıt etmek biryere yada excel sayfasına ??
2 .nci soruna zaten yukarıda cevap vermişim (Worksheet) nesnesini kullanarak dökümana istediğin komutu yaptırabilirsin ! Yanlış hatırlamıyorsam eğer Woksheet1.save/save as gibi bir komutu var. Tabi parametrelere dikkat etmelisin komutu yazıp enterladığında ilgili argumanlar gözükür satır içerisinde.
1. Sorunu anlayamadım ama galiba Dokumanı Macroyla çalıştıramıyorsun !!! Yaptını çalışmayı kaydet dökümanı kapa aç bir daha ki sefere kendi RUN olacaktır.. Ama içinden de yaparsın onu. Play gibi bir tuş var yukarıda . :) Ama comboyla ilgili tam anlatmak istediğini anlayamadım açıkcası.
-
En sonunda Excel kurdurttun bana 
Herhangi bir yordam içine örneğin buton olabilir !
ThisWorkbook.SaveAs ("Dosya kayıt yolu","Dosya formatı (XLS, vs...)","") Bu ikisi yeterli sanırım geri kalanlar password la felan ilgili. -
yaa cok sagol abi yaa varya sabah 5 ten beri öldüm yaa ...
-
quote:
Orjinalden alıntı: HaDeS88
yaa cok sagol abi yaa varya sabah 5 ten beri öldüm yaa ...
Kolay gelsin... İyi çalışmalar... -
quote:
Dim a, i As Integer
a= 10
For a = 10 To a + 1
Worksheets("emlak ekleme").Cells(a, 1).Value = TextBox5
Worksheets("emlak ekleme").Cells(a, 2).Value = TextBox6
Worksheets("emlak ekleme").Cells(a, 3).Value = TextBox17
Worksheets("emlak ekleme").Cells(a, 4).Value = ComboBox1
Worksheets("emlak ekleme").Cells(a, 5).Value = TextBox20
Worksheets("emlak ekleme").Cells(a, 6).Value = TextBox22
Worksheets("emlak ekleme").Cells(a, 7).Value = TextBox23
ActiveWorkbook.Save
Unload UserForm2
Next a
Burdaki döngüde userform daki textboxlardaki bilgileri excelde deki sayfaya ekliyorum ancak 1 den fazla kayıt yapmam gerekiyor fakat üzerine yazıyor bu sorunu for döngüsü ile halldeceğimi düşündüm üsteki kodları yazınca 1 kere değilde 2 kere aynı şeyi tekrar yazıyor.yeni kayıt açıncada aynı şeyleri aynı satırlara yazıyor bunu düzeltip tek tek yazma gibi bişey yapma olanağı varmıdır ???? bileN varsA aCil yardıM Edebilirmi
< Bu mesaj bu kişi tarafından değiştirildi HaDeS -- 8 Mayıs 2005, 15:52:56 >
-
quote:
Orjinalden alıntı: HaDeS88
quote:
Dim a, i As Integer
a= 10
For a = 10 To a + 1
Worksheets("emlak ekleme").Cells(a, 1).Value = TextBox5
Worksheets("emlak ekleme").Cells(a, 2).Value = TextBox6
Worksheets("emlak ekleme").Cells(a, 3).Value = TextBox17
Worksheets("emlak ekleme").Cells(a, 4).Value = ComboBox1
Worksheets("emlak ekleme").Cells(a, 5).Value = TextBox20
Worksheets("emlak ekleme").Cells(a, 6).Value = TextBox22
Worksheets("emlak ekleme").Cells(a, 7).Value = TextBox23
ActiveWorkbook.Save
Unload UserForm2
Next a
Burdaki döngüde userform daki textboxlardaki bilgileri excelde deki sayfaya ekliyorum ancak 1 den fazla kayıt yapmam gerekiyor fakat üzerine yazıyor bu sorunu for döngüsü ile halldeceğimi düşündüm üsteki kodları yazınca 1 kere değilde 2 kere aynı şeyi tekrar yazıyor.yeni kayıt açıncada aynı şeyleri aynı satırlara yazıyor bunu düzeltip tek tek yazma gibi bişey yapma olanağı varmıdır ???? bileN varsA aCil yardıM Edebilirmi
Dostum ne yapmışsın sen böyle ! :)
Kodunu benim yazdığım şekilde düzenle bakalım ne olacak ! ?
quote:
Private Sub CommandButton1_Click()
Dim a As Integer
For a = 1 To 10 Step 1
Worksheets("Sheet1").Cells(a, 2).Value = TextBox1
Worksheets("Sheet1").Cells(a, 2).Value = TextBox2
Worksheets("Sheet1").Cells(a, 2).Value = ComboBox1
Next a
ActiveWorkbook.Save
Unload Userfom2
End Sub
Yaptığın hatalar -> Kullanmayacağın değişken deklare etme asla
For döngüsü içine komut verirsen her döngüde komut işletir
save ve unload işlemlerini döngü içine yazmışsın !
Döngüye sabit değer ver artan değerleri döngü içinde kontrol et mesela iki değer artışı var diyelim ..
for a=0 to 10 dediğin zaman 0,1,2,3,4,5,6,7,8,9,10 Der durur döngü
a,b
for a=0 to 10
b=b+1 -> dersen a ile b yi aynı anda arttırmış olursun biraz düşün bunu
next
Kolay gelsin :)
< Bu mesaj bu kişi tarafından değiştirildi irfanmatak -- 9 Mayıs 2005, 14:32:10 >
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
