[Ali ÖZ]

For i döngüsünü with dışına alıp deneyin.

[vba_kadir]

Yav Ali hocam o kadar bilsem keşke. Iki satır yaziversen.

[Ali ÖZ]

Bu şekilde deneyin.

Kod: Tümünü seç

Private Sub CommandButton1_Click()

If TextBox2.Text = Empty Then
MsgBox "Lütfen Alıcı Adı ve Soyadı Giriniz.", vbExclamation, "": Exit Sub
End If   ' BOŞ BIRAKILMASINI İSTEMEDİĞİNİZ YERLER İÇİN...

If TextBox3.Text = Empty Then
MsgBox "Alıcı Adres Bilgilerini Kontrol ediniz!", vbExclamation, "": Exit Sub
End If   ' BOŞ BIRAKILMASINI İSTEMEDİĞİNİZ YERLER İÇİN...

With Sheets("satış")
Satır = .Range("A65536").End(3).Row + 1 ' a sütunundaki son dolu satırı bulup bir sonraki satıra aşağıdaki işlemi yapar
.Cells(Satır, 2) = CDate(TextBox1.Text) 'birinci sütuna Textbox1 tarih formatında yazılır
.Cells(Satır, 3) = TextBox2         ' üçüncü sutuna ComboBox9 yazar
.Cells(Satır, 4) = TextBox3
.Cells(Satır, 5) = TextBox4
.Cells(Satır, 6) = TextBox5
.Cells(Satır, 7) = TextBox6
.Cells(Satır, 8) = TextBox7
.Cells(Satır, 13) = TextBox8
.Cells(Satır, 14) = ComboBox1
.Cells(Satır, 15) = ComboBox2
.Cells(Satır, 18) = TextBox9
.Cells(Satır, 19) = ComboBox3
.Cells(Satır, 20) = ComboBox4
.Cells(Satır, 21) = ComboBox5
.Cells(Satır, 22) = ComboBox6
.Cells(Satır, 24) = ComboBox7
.Cells(Satır, 31) = ComboBox8
.Cells(Satır, 32) = TextBox10
.Cells(Satır, 33) = TextBox11
.Cells(Satır, 34) = TextBox12
End With
For i = 2 To 10
  Controls("Textbox" & i).Value = ""
Next
MsgBox "KAYIT İŞLEMİ TAMAMLANDI", , ""
End Sub


[/quote]

[vba_kadir]

Pardon Ali hocam. O işi çözmüştüm ben de,
Sorun şu;
Şu kodu formda kullanıyorum.
A11 , A dakileri benzersiz al.

Kod: Tümünü seç

Private Sub UserForm_Initialize()
For x = 11 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A11:A" & x), Cells(x, 1)) = 1 Then
ComboBox1.AddItem Cells(x, 1).Value
End If
Next
End Sub


Sayfaya yerleştirilen combobox için nasıl olmalı.
birde alfabetik sıralatabilir miyiz.

[Ali ÖZ]

Kod: Tümünü seç

Private Sub Worksheet_Activate()
Combobox1.Clear
For x = 11 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A11:A" & x), Cells(x, 1)) = 1 Then
ComboBox1.AddItem Cells(x, 1).Value
End If
Next
End Sub


[vba_kadir]

Ali hocam çalışmadı.
Sayfa4

[Ali ÖZ]

Kadir bey,dosyaya erişemiyorum. Çalışmaması için bir sebep yok.Combobox hangi sayfadaysa o sayfanın kod bölümüne yazdınız değil mi ? Ayrıca sayfa aktif olunca kodlar çalışır.

[vba_kadir]

sanırım excelde bir sorun var. başka bilgisayarda açılan formlar bunda açılmıyor.
başka bilgisayarda deneyeceğim. Allah razı olsun. Allaha emanet.

[vba_kadir]

Ali hocam olmuyor malesef.

[vba_kadir]

sayfa4

[Ali ÖZ]

Kadir bey,
Dosyanıza erişebilsem gerekli düzeltmeyi yaparım ama durumu biliyorsunuz.Ancak kodlarda sorun görünmüyor,uygulamada hata yok değil mi ?

[vba_kadir]

Dosyaya neden erişemiyorsunuz anlamadım.
Bilmiyorum bir hata yaptığımı sanmıyorum ama.

[vba_kadir]

Peki bu sorun nedir acaba

[Ali ÖZ]

Cepten giriyorym çünkü
Döngüde sayfa ismini aşağıdaki gibi yazın.

For each bul in sheets("satış").range("b2:b " & range("b65536").end(3).row)

[vba_kadir]

a sütunda ki kayıt sayısıneyse yani texboxa getirilen kayıt sayısına ait satırdaki veriye gitmeli

[vba_kadir]

For each bul in sheets("satış").range("b2:b " & range("b65536").end(3).row)

tamamı sarı oldu

[Ali ÖZ]

Kadir bey,sayfa ismini kontrol edin.Bir de "dim bul as range" değişken satırını silip deneyin.

[Ali ÖZ]

Kadir bey,
Sizin dosyanızda sorun var.Ekli dosyayı inceleyin,aynı kodlarla comboboxa veri aktarımı yapılmakta.

[saksema48]

Tarkan bey;
Öncelikle çok teşekkür ederim sizlerin sayesinde öğreniyorum.

ComboBox1 de açılır menü yaptım. Fakat içine birşey yazılmasını isteiyorum sadece seçmelerini istiyorum yanlız Style da 2fmStyleDropDownList seçtiğimde bana Ana sayfada CommandButon1.Userform1.show hatası veriyor.

2) Birde tarih kısmına sadece yıl girilmesin istiyorum bir tülü onu da yapamadım.
3) Açıklama kısmını boş geçebilirler fakat msgbox kodunu silince hata veriyor.