combobox verilerini istediğim satıra yaz

[kambozlu]

değerli üyeler..! dosya biraz büyük.bölemedim.ilgilenenlere çok teşekkürler. dosyada data sayfasındaki örnek dizilimi kodlarmısınız.

 

[Orion1]

Aşağıdaki kodları kullanınız.

Private Sub CommandButton1_Click()
Dim SD As Worksheet, sat As Long, i As Byte, k As Byte, son As Long
Set SD = Sheets("data")
Application.ScreenUpdating = False
Range("C2:AM65536").ClearContents
For i = 1 To 37
    If Controls("ComBobox" & i).ListIndex >= 0 Then
        SD.Cells([B][COLOR="Red"]1[/COLOR][/B], i + 2).Value = Controls("ComBobox" & i).Value
    End If
Next i
Set SD = Nothing
Application.ScreenUpdating = True
Sheets("data").Select
Unload UserForm1
End Sub

 

[kambozlu]

sn. evren çok sağolun.aynı işlemi tüm alt satırlar için yapabilirmiyiz.yani kaydet dedik 1.satır tamam.tekrar userforma girdik.yeniden seçimler yaptık.seçtiklerimiz 2.satıra yazsın.tabii 1.satırdakiler duracak.mümkünmü? tekrar seç,kaydet3.satır.4,5,6...devam edecek

 

[Orion1]

sn. evren çok sağolun.aynı işlemi tüm alt satırlar için yapabilirmiyiz.yani kaydet dedik 1.satır tamam.tekrar userforma girdik.yeniden seçimler yaptık.seçtiklerimiz 2.satıra yazsın.mümkünmü?

Aslında bunları en başta söylemiz gerkiyordu.Oysa siz en sonunda söylediniz.
Aşağıdaki kodları kullanınız.

Private Sub CommandButton1_Click()
Dim SD As Worksheet, sat As Long, i As Byte, k As Byte, son As Long
Set SD = Sheets("data")
Application.ScreenUpdating = False
For i = 3 To 39
    If Cells(65536, i).End(xlUp).Row > son Then
        son = Cells(65536, i).End(xlUp).Row
    End If
Next i
If son >= 65533 Then
    MsgBox "Sayfada Satır doldu..!!" & vbLf & "Başka Kayıt yapamazsınız..!!", vbCritical, "Sayfa doldu.."
    Exit Sub
    Else
    son = son + 1
End If
For i = 1 To 37
    If Controls("ComBobox" & i).ListIndex >= 0 Then
        SD.Cells(son, i + 2).Value = Controls("ComBobox" & i).Value
    End If
Next i
Set SD = Nothing
Application.ScreenUpdating = True
Sheets("data").Select
Unload UserForm1
End Sub

 

[kambozlu]

üstadım kusura bakma!

isteklerimin hepsini birden iletemiyorum.oluşan duruma göre istekte bulunuyorum.zaten derdimi yine anlatamadım.!1.satıra yazılan kod tamam(önceki mesaj)şimdiki kod sadece 2.satıra yazıyor.BEnim istediğim önceki kod..o kod tüm satırlarda aktif olsun.her kaydet emri 1,2,3,4...tüm satırlarda aynı1.satır işlemini uygulasın.isteyenin bir yüzü demişler..!!

 

[Orion1]

isteklerimin hepsini birden iletemiyorum.oluşan duruma göre istekte bulunuyorum.zaten derdimi yine anlatamadım.!1.satıra yazılan kod tamam(önceki mesaj)şimdiki kod sadece 2.satıra yazıyor.BEnim istediğim önceki kod..o kod tüm satırlarda aktif olsun.her kaydet emri 1,2,3,4...tüm satırlarda aynı1.satır işlemini uygulasın.isteyenin bir yüzü demişler..!!

Ekli dosyada yani size verdiğim kodda alt alta satırlar yazılıyordu.
Arada Satırların arasında hiç boşluk olmasınmı istiyorsunuz?
Zaten kod yazmak bir şey değil.
Arkadaşlar meramını anlatamıyorlar,yada onlar anlatıyorda bazen biz anlayamıyoruz,o sebepten uğraşıyoruz.

 

[kambozlu]

yok , hata tamamen soruyu soranda.çünkü klavyenin başında soruyu nasıl sorsam diye bocalıyorum.kafamda tamamen bana özel bi yapı oluşturmak istiyorum.ancak o yapı tek bir komuta bağlı değil.dolayısıyla böyle sizleri sıkboğaz ediyoruz.ama hepiniz öğretme isteği ile buradasınız.hoşgörünüz sayesinde inşallah birşeyler öğreniriz.teşekkürler ediyorum.

 

[kambozlu]

bazen sözler yazıya tam yansımıyor

Ekli dosyada yani size verdiğim kodda alt alta satırlar yazılıyordu.
Arada Satırların arasında hiç boşluk olmasınmı istiyorsunuz?
Zaten kod yazmak bir şey değil.
Arkadaşlar meramını anlatamıyorlar,yada onlar anlatıyorda bazen biz anlayamıyoruz,o sebepten uğraşıyoruz.

evren bey size dert oldum. madde 1= userformu açtım.değişik komboboxların içinden değişik verileri seçtim,kaydet dedim.bu ilk seçimim soldan sağa 1.satıra yazdı. madde 2= tekrar çeşitli seçimler yaptım.kayıt 2.satıra.. madde 3= sonradan tekrarlanan kayıtlar hep 1 alt satıra yazacak..inşallah izah etmişimdir.!

 

[Orion1]

yok , hata tamamen soruyu soranda.çünkü klavyenin başında soruyu nasıl sorsam diye bocalıyorum.kafamda tamamen bana özel bi yapı oluşturmak istiyorum.ancak o yapı tek bir komuta bağlı değil.dolayısıyla böyle sizleri sıkboğaz ediyoruz.ama hepiniz öğretme isteği ile buradasınız.hoşgörünüz sayesinde inşallah birşeyler öğreniriz.teşekkürler ediyorum.

Rica ederim.
iyi çalışmalar.

 

[Orion1]

evren bey size dert oldum. madde 1= userformu açtım.değişik komboboxların içinden değişik verileri seçtim,kaydet dedim.bu ilk seçimim soldan sağa 1.satıra yazdı. madde 2= tekrar çeşitli seçimler yaptım.kayıt 2.satıra.. madde 3= sonradan tekrarlanan kayıtlar hep 1 alt satıra yazacak..inşallah izah etmişimdir.!

Userform açıldığında Veriler silinip 2nci satırdan itibaren alt alta kayıtlar yazılmaya başlanıyor.

Private Sub CommandButton1_Click()
Dim SD As Worksheet, sat As Long, i As Byte, k As Byte, son As Long
Set SD = Sheets("data")
Application.ScreenUpdating = False
For i = 3 To 39
    If SD.Cells(65536, i).End(xlUp).Row > son Then
        son = SD.Cells(65536, i).End(xlUp).Row
    End If
Next i
If son >= 65533 Then
    MsgBox "Sayfada Satır doldu..!!" & vbLf & "Başka Kayıt yapamazsınız..!!", vbCritical, "Sayfa doldu.."
    Exit Sub
    Else
    son = son + 1
End If
For i = 1 To 37
    If Controls("ComBobox" & i).ListIndex >= 0 Then
        SD.Cells(son, i + 2).Value = Controls("ComBobox" & i).Value
    End If
Next i
Set SD = Nothing
Application.ScreenUpdating = True
MsgBox "Kayıt yapıldı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[kambozlu]

vallahi tamam .çok çok teşekkürler.karşılasırsak yemekler benden!

 

[Orion1]

vallahi tamam .çok çok teşekkürler.karşılasırsak yemekler benden!

Rica ederim.
İyi çalışmalar.

 

[kambozlu]

evren bey.başka bir dosya oluşturuyorum.sadece içerikler farklı.yalnız bu dosyada userform açıldığında mevcut kayıtlar silinmesin.geri kalan her şey aynı .hangi kodu değiştirmek lazım.teşekkürler.

 

[Orion1]

evren bey.başka bir dosya oluşturuyorum.sadece içerikler farklı.yalnız bu dosyada userform açıldığında mevcut kayıtlar silinmesin.geri kalan her şey aynı .hangi kodu değiştirmek lazım.teşekkürler.

Userformun initialize olayındaki ilgili alanı silen kodu(Clear) silin.

 

[kambozlu]

(kopya) 2002 ofis ile (lisansl&#305 2007 ofis ikisi aynı bilgisayarda çalışırmı.?

 

[kambozlu]

bu dosyada çok emeğiniz geçti.çok teşekkür ederim.hayırlı çalışmalar.