userform kaydet hatası

[kambozlu]

combobox problemi

korhan bey teşekkürler.sorunumu örnek dosyada daha iyi anlattığımı sanıyorum.cam sayfasındaki verileri "combox"a ekliyemedim.ilginize çok teşekkür ediyorum.

 

[Orion1]

Dosyanız ekte.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "cam!A1:A" & Sheets("cam").Cells(65536, "A").End(xlUp).Row
ComboBox1.ListIndex = 0
End Sub

 

[kambozlu]

Evren bey çok sağolun.yalnız kaydet dediğimde B1 satırı yerine B2 satırına yazıyor.neden acaba?ilginize teşekkürler.

 

[Orion1]

Evren bey çok sağolun.yalnız kaydet dediğimde B1 satırı yerine B2 satırına yazıyor.neden acaba?ilginize teşekkürler.

Bir dağa kaydettiğinizde onun altına kaydediyor.İlk satırı başlık yapabilirsiniz.

 

[kambozlu]

evet,sutünü 1 satır aşağı çekince tamam.çok sağolun.iyi geceler

 

[kambozlu]

combobox'ta veriler üzerine tıklanınca açılabilirmi?

evren bey.tekrar size müracaat.userform'da combobox'taki veriler hep açık kalıyor.ben üzerine tıkladığımda açılsın. Birde data sayfasında A1 sütunundaki verileri değişken yapabilirmiyiz? teşekkürler ilginize.(diğer veri sayfaları gizlendi)

 

[kambozlu]

Userform da kaydet butonu, verileri data sayfasına şu şekilde yazabilirmi? 1.comboboxta 1.veri data sayfası B2 hücresine 1.comboboxta 2.veri data sayfası B3 hücresine 2.comboboxta 1.veri data sayfası C2 hücresine 2.comboboxta 2.veri data sayfası C3 hücresine (böyle devam ediyor) Teşekkür ediyorum.

 

[kambozlu]

mesaj silindi

 

[Orion1]

Evren bey!Userform da kaydet butonu, verileri data sayfasına şu şekilde yazabilirmi? 1.comboboxta 1.veri data sayfası B2 hücresine 1.comboboxta 2.veri data sayfası B3 hücresine 2.comboboxta 1.veri data sayfası C2 hücresine 2.comboboxta 2.veri data sayfası C3 hücresine (böyle devam ediyor) Teşekkür ediyorum.

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim sd As Worksheet, son As Long, i As Byte, k As Long
Set sd = Sheets("data")
sd.Select
Application.ScreenUpdating = False
Range("B2:AL65536").ClearContents
For i = 1 To 37
    Cells(2, i + 1).Resize(Controls("ComboBox" & i).ListCount, 1) = Controls("ComBobox" & i).List
Next
Application.ScreenUpdating = True
Set sd = Nothing
MsgBox "ComboBoxTaki veriler Data sayfasına aktarıldı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[Orion1]

9 numaralı mesajdaki cevabı değiştirdim.
Şimdi dağa doğru ve hızlı çalışıyor.
Dosyayı 9 numaralı mesajdan indirebilirsiniz.

 

[kambozlu]

emeğinizi helal edin.çok teşekkürler.

 

[kambozlu]

teşekkürler

9 numaralı mesajdaki cevabı değiştirdim.
Şimdi dağa doğru ve hızlı çalışıyor.
Dosyayı 9 numaralı mesajdan indirebilirsiniz.

emeğinizi helal edin.bizde birşeyler öğrenene kadar (sizlerin yardımıyla) hazıra konmuş olacağız ama..!

 

[Orion1]

emeğinizi helal edin.bizde birşeyler öğrenene kadar (sizlerin yardımıyla) hazıra konmuş olacağız ama..!

Rica ederim.
iyi çalışmalar.