Sıradaki sütüna yazdırma

[CILEKESH]

Yeni tasarlayacağım bir form excele verileri "SAĞ'a" doğru yazdıracak. Konu ile ilgili örnek dosya, Örnek kod ya da Link paylaşabilir misiniz?

Başlıklarda arama yaptım ama bulamadım.

 

[djoguzz]

dostum aşağıdaki konuda yaptığım programda her müşteriyi en son satıra kayıt ediyor bunun gibi birşey mi istiyorsun acaba ?

http://www.excel.web.tr/showthread.php?goto=newpost&t=107079

 

[CILEKESH]

dostum aşağıdaki konuda yaptığım programda her müşteriyi en son satıra kayıt ediyor bunun gibi birşey mi istiyorsun acaba ?

http://www.excel.web.tr/showthread.php?goto=newpost&t=107079

Sayın djoguzz programınızı inceledim veriler YATAY değil DİKEY yazdırılıyor.

Benim yapmak istediğim Örnek;


OCAK ***** ***** ***** ??????
ŞUBAT ***** ***** ***** ??????
MART ***** ***** ***** ??????
NİSAN ***** ***** ***** ??????

Formdan gönderilecek verileri soru işareti olan yere yazdırmak.

 

[djoguzz]

Sayın djoguzz programınızı inceledim veriler YATAY değil DİKEY yazdırılıyor.

Benim yapmak istediğim Örnek;


OCAK ***** ***** ***** ??????
ŞUBAT ***** ***** ***** ??????
MART ***** ***** ***** ??????
NİSAN ***** ***** ***** ??????

Formdan gönderilecek verileri soru işareti olan yere yazdırmak.

Bir örnek dosya hazırlayabilir misiniz acaba o şekilde inceleyelim.

 

[CILEKESH]

Bir örnek dosya hazırlayabilir misiniz acaba o şekilde inceleyelim.

Dosya Ektedir.

 

[İhsan Tank]

Dosya Ektedir.

Userform'un kod bölümüne kopyalayın ve deneyin

Option Explicit
Private Sub CommandButton1_Click()
Dim ts, trabzonspor, hamsi As Date
trabzonspor = MsgBox(UserForm1.Caption & " Bilgilerini Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(ts, "A") = ComboBox1 Or Cells(ts, "A") = ComboBox2 Or _
Cells(ts, "A") = ComboBox3 Or Cells(ts, "A") = ComboBox4 Or _
Cells(ts, "A") = ComboBox5 Then
Cells(ts, "B") = 0
Else
Cells(ts, "B") = CDbl(TextBox1)
End If
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede " & UserForm1.Caption & " Bilgilerini Aktardım", , "Bitiş"
End Sub
Private Sub UserForm_Activate()
ComboBox1.RowSource = "Sayfa1!A2:A" & _
WorksheetFunction.CountA(Worksheets("Sayfa1").Range("a1:a65536"))
ComboBox2.RowSource = "Sayfa1!A2:A" & _
WorksheetFunction.CountA(Worksheets("Sayfa1").Range("a1:a65536"))
ComboBox3.RowSource = "Sayfa1!A2:A" & _
WorksheetFunction.CountA(Worksheets("Sayfa1").Range("a1:a65536"))
ComboBox4.RowSource = "Sayfa1!A2:A" & _
WorksheetFunction.CountA(Worksheets("Sayfa1").Range("a1:a65536"))
ComboBox5.RowSource = "Sayfa1!A2:A" & _
WorksheetFunction.CountA(Worksheets("Sayfa1").Range("a1:a65536"))
End Sub

 

[CILEKESH]

Teşekkür ederim, Her zamanki gibi sorunsuz çalıştı.

 

[djoguzz]

Teşekkür ederim, Her zamanki gibi sorunsuz çalıştı.

İşlerimden dolayı bakamadım kardeşim İhsan bey cevap vermiş güle güle kullanın.

 

[İhsan Tank]

Teşekkür ederim, Her zamanki gibi sorunsuz çalıştı.

Rica ederim
:keyif:

 

[CILEKESH]

İşlerimden dolayı bakamadım kardeşim İhsan bey cevap vermiş güle güle kullanın.

Allah Razı olsun.