Otobus takip otomasyonu

[battery]

Ekte gonderdiğim programda takıldıgım bir noktayı size sormak istedim.Listboxlarda seferlerim var.Ayrıca textboxlarla otobus planıda yaptım.Benim tek sorunum sağ tarafta sefer işlemleri bölümünde girdiğim verileri o sefere ait excel sayfasına kayıt etmesini istiyorum.Ayrıca plaka girdiğimde listboxtaki seçtiğim sefere ait plaka bolümünede yazmasını istiyorum.Şimdiden yardımlarınızı bekliyorum.

 

[Orion1]

travego isimli framenin içindeki textboxlarımı sayfada ilgili olduğu satır ve sütunlara topluca aktarmak istiyorsunuz.

 

[battery]

evet evren bey ben sadece deneme amaçlı frame koydum görsellik olsun diye

 

[Orion1]

Yalnızca koltuklar için yaptım.Diğerlerini siz yapın.
Dosya ekdtedir.

Private Sub CommandButton10_Click()
Dim k As Byte, bul As Range, son As Long
If ListBox1.ListIndex < 0 Then
    MsgBox "Aktarma yapabilmek için Listboxtan bir seçim yapmalısınız!", vbCritical, "UYARI"
    Exit Sub
End If
With Sheets("Sayfa1")
    son = .Cells(65536, "B").End(xlUp).Row
    Set bul = .Range("B2:B" & son).Find(ListBox1.Column(0), , xlValues, xlWhole)
    If bul Is Nothing Then
        MsgBox "[ " & ListBox1.Column(0) & " ] Sayfada bulunamdı ,veriler aktarılmadı!", vbCritical, "UYARI"
        Exit Sub
        Else
        For k = 1 To 54
            .Cells(bul.Row, k + 2).Value = Controls("k" & k).Value
        Next
        MsgBox "Koltuklar Başarı ile Kaydedildi." & vbLf & _
        vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
    End If
    Set bul = Nothing
End With
    
End Sub

 

[battery]

Teşekkür ederim beklentilerimin çok çok üstünde birşey oldu...

 

[Orion1]

Teşekkür ederim beklentilerimin çok çok üstünde birşey oldu...

Rica ederim.
İyi çalışmalar.