Textbox = Belirledigim hücreye yazdırmak

[gencerker]

Merhaba

Bir dosya üzerinde çalışıyorum fakat bazı eksiklerim var ve sizlerden yardım alarak tamamlamak istiyorum tabi mümkünse..

1.excel dosyasını açtığımda her defasında makro içeriğini etkinleştirip sonra hazırlamış oldugum makroyu çalıştırmak zorunda kalıyorum.
Bunu otomatik olarak ilk açılışta direk karşıma çıkmasını sağlayabilirmiyiz?

2.Kaydet butonuna tıkladıgım zaman;
textbox1 = "b1" hücresine
textbox2 = "c1" hücresine
textbox3 = "d1" hücresine ... (bu şekilde devam ediyor) yazıyor

istediğim textboxı, belirlediğim hücreye yazmasını nasıl sağlayabilirim?


3. kaydet butonuna bastıktan sonra a1 hücresine her satırda sıra numarası veriyor. Bunu iptal etmek istiyorum..

Makro vba kodlarına merakım dün başladı bugün de böyle bir çalışma ortaya çıktı, kusura bakmayın, bir yandan da kendimi geliştirmeye çalışıyorum..

Not: dosya ekte mevcut

 

[Mustafa MUTLU]

Merhaba

Bir dosya üzerinde çalışıyorum fakat bazı eksiklerim var ve sizlerden yardım alarak tamamlamak istiyorum tabi mümkünse..

1.excel dosyasını açtığımda her defasında makro içeriğini etkinleştirip sonra hazırlamış oldugum makroyu çalıştırmak zorunda kalıyorum.
Bunu otomatik olarak ilk açılışta direk karşıma çıkmasını sağlayabilirmiyiz?

2.Kaydet butonuna tıkladıgım zaman;
textbox1 = "b1" hücresine
textbox2 = "c1" hücresine
textbox3 = "d1" hücresine ... (bu şekilde devam ediyor) yazıyor

istediğim textboxı, belirlediğim hücreye yazmasını nasıl sağlayabilirim?


3. kaydet butonuna bastıktan sonra a1 hücresine her satırda sıra numarası veriyor. Bunu iptal etmek istiyorum..

Makro vba kodlarına merakım dün başladı bugün de böyle bir çalışma ortaya çıktı, kusura bakmayın, bir yandan da kendimi geliştirmeye çalışıyorum..

Not: dosya ekte mevcut

Bir Modüle
1. Soru :
Sub AUTO_OPEN()
UserForm1.Show
End Sub

2. Sorun :
Private Sub CommandButton1_Click()
Dim Mutlu As Long, Say As Byte

Mutlu = Range("A65536").End(3).Row + 1
Cells(Mutlu, "A") = TextBox1.Text
Cells(Mutlu, "B") = TextBox2.Text
Cells(Mutlu, "C") = TextBox3.Text
Cells(Mutlu, "D") = TextBox4.Text

End Sub

Burada Kırmızı harfleri değiştirerek istediğin sütuna yazdırabilirsin.
Lacivert harf yerine her kayıtta kesin dolu olacak sütunu seçmelisin.

3. Soru :
2. soruna verdiğim cevapda çözülmüştür.

 

[gencerker]

teşekkür ederim fakat 2. sorunun cevabını bendeki makro kodu üzerinde uyarlayabilirmiyiz rica etsem

Private Sub CommandButton1_Click()
Sheets("iadeler").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a1").Value = "" Then
Range("a1").Value = 1
Range("a1").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1) = TextBox1.Text
ActiveCell.Offset(0, 2) = TextBox2.Text
ActiveCell.Offset(0, 3) = TextBox3.Text
ActiveCell.Offset(0, 4) = TextBox4.Text
ActiveCell.Offset(0, 5) = TextBox5.Text
ActiveCell.Offset(0, 6) = TextBox6.Text
ActiveCell.Offset(0, 7) = TextBox7.Text
ActiveCell.Offset(0, 8) = TextBox8.Text
ActiveCell.Offset(0, 9) = TextBox9.Text
ActiveCell.Offset(0, 10) = TextBox10.Text
ActiveCell.Offset(0, 11) = TextBox11.Text
ActiveCell.Offset(0, 12) = TextBox12.Text
ActiveCell.Offset(0, 13) = TextBox13.Text
ActiveCell.Offset(0, 14) = TextBox14.Text
acik = "Sıkıntı Yok.."
buton = vbokeyonly + vbInformation
bas = "iadetakip işlemi"
MsgBox acik, buton, bas
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
TextBox1.Text = ""
End Sub

 

[Mustafa MUTLU]

Private Sub CommandButton1_Click()
Dim Mutlu As Long, Say As Byte
Mutlu = Range("A65536").End(3).Row + 1
Cells(Mutlu, "A") = TextBox1.Text
Cells(Mutlu, "B") = TextBox2.Text
Cells(Mutlu, "C") = TextBox3.Text
Cells(Mutlu, "D") = TextBox4.Text
MsgBox "Kayıt İşlemi Tamamlanmıştır"
End Sub

CommandButton1' in içindeki kodların hepsini silin
Bu Kodları yazın yeterli..

 

[Mustafa MUTLU]

Kayıt Sonrası text ler boşalsın istersen
Yukarıdaki kodun
End Sub den önce

Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
Nesne = ""
End Select
Next

Bu kodu yazın..

 

[gencerker]

Bu kadar kolay çözümü varken, niye öyle uzun kodlarla benim kafamı karıştırıyorlar ki =)

teşekkür ederim

 

[Mustafa MUTLU]

Bu kadar kolay çözümü varken, niye öyle uzun kodlarla benim kafamı karıştırıyorlar ki =)

teşekkür ederim

Rica ederim.
Kodların uzun yada kısa olmasından ziyade
istediğini yapması önemlidir...

Birde rica etsem
İmzanı TÜRK ce yazarmısın.
TÜRK cemize saygı için....

 

[OnurOnurOnur]

Merhaba,
Benzer bir problemim var şöyle anlatayım:

3 sheet var,

1. Sheet: "form" adında. Bu sheet'te 2 combobox ve 5 textbox var.
2. Sheet: "rapor" adında. Birinci forma girilenlerin rapor haline getirilmesini sağlıyor.
3. Sheet: "list" adında. İlk sheet'teki combobox'ların içeriklerini taşıyor.

Amacım;
"form" a girilen verilerin KAYDET düğmesiyle rapora kaydedilmesi. "Rapor" sheet'i gizli ve şifreli olacak bu sayede bir veri giren, diğeri ne girmiş göremeyecek.

"form"daki 1. combobox "rapor"daki A2 hücresine
"form"daki 2. combobox "rapor"daki b2 hücresine
"form"daki 1. textbox "rapor"daki C2 hücresine
"form"daki 2. textbox "rapor"daki D2 hücresine

şeklinde giderek kaydedecek. Kaydet düğmesine bastıktan sonra bir başkası veri girdiğinde aynı şekilde 3. satıra girilecek. Yani farklı sheet'teki bir satıra yazdırmayı nasıl yapabilirim?


Hem yukarıda yazdığımın nasıl yapılacağını öğrenmek istiyorum hem de;

_____________________
Bir sitede combobox'a veri girmenin "formulas>define names" üzerinden yapıldığını okudum. O şekilde yaparak içerikleri çalıştırdım. Tekrar açtığım zaman liste silinmiş oluyor malesef Form kontrollerinde sağ tıklayıp INPUT'tan kolayca seçebiliyorduk. Buna benzer basit bir yol var mıdır?

** Çözdüm bunu ** ComboBox1.ListFillRange = "Veriler!$B$3:$B$18" kodu ile hallettim ama ComboBox1.RowSource neden çalışmıyor acaba bende?
_____________________

Son olarak kayıta bastıktan sonra silinmesi için verdiğiniz kodda renkli yazdığım yer hata vermekte:


Private Sub CommandButton1_Click()

Dim Satir As Long, Say As Byte
Satir = Range("A65536").End(3).Row + 1
Cells(Satir, "A") = TextBox1.Text
Cells(Satir, "B") = ComboBox1.Value
MsgBox "Kayıt İşlemi Tamamlanmıştır"

Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
Nesne = ""
End Select
Next

End Sub



Teşekkürler şimdiden.

 

[mesutaygun70]

İyi günler. Ben bir userform yaptım. ve userformdada textboxlar var. Textbox1=sayfa11 in son satırın a sütununa , textbox2=sayfa11 in son satırın b sütününa girmesini istiyorum. Biraz araştırdım ama yapamadım yardımcı olabilirmisiniz. Benim kodum aşağıda ama olmuyor

Private Sub CommandButton1_Click()
Sayfa11.Cells(son_satir, "A") = TextBox1
End Sub

 

[Mustafa MUTLU]

İyi günler. Ben bir userform yaptım. ve userformdada textboxlar var. Textbox1=sayfa11 in son satırın a sütununa , textbox2=sayfa11 in son satırın b sütününa girmesini istiyorum. Biraz araştırdım ama yapamadım yardımcı olabilirmisiniz. Benim kodum aşağıda ama olmuyor

Private Sub CommandButton1_Click()
Sayfa11.Cells(son_satir, "A") = TextBox1
End Sub

Şu Şekilde düzeltiniz..

Private Sub CommandButton1_Click()
son_satir = Range("A65536").End(3).Row + 1
Sayfa11.Cells(son_satir, "A") = TextBox1.Text
Sayfa11.Cells(son_satir, "B") = TextBox2.Text
End Sub

 

[h.doganc]

Private Sub CommandButton1_Click()
Dim Mutlu As Long, Say As Byte
Mutlu = Range("A65536").End(3).Row + 1
Cells(Mutlu, "A") = TextBox1.Text
Cells(Mutlu, "B") = TextBox2.Text
Cells(Mutlu, "C") = TextBox3.Text
Cells(Mutlu, "D") = TextBox4.Text
MsgBox "Kayıt İşlemi Tamamlanmıştır"
End Sub

CommandButton1' in içindeki kodların hepsini silin
Bu Kodları yazın yeterli..

Selamlar bu kodlarla 6ci satırdan başlıyor yazmaya onu nasıl 1ci satır 2 ci veyaz istediğimiz satırdan başlatacaz mesela ben A6 ya yazmasını istiyorum