Forumda uzun uzun aradım. Benimle aynı dertten muzdarip arkadaş sayısı epey çok. Hemen hemen hepsi de sorunlarına çözüm bulmuş. Aynı çözümleri kendi çalışmama uyguladım ama sonuç hep aynı. Sorun çözülmedi.
Gönderdiğim dosyada Programa Giriş/Tabela Giriş düğmeleri ile açılan formda sağ taraftaki textboxlara sayı giriyorum. Buraya girdiğim sayılar liste sayfasına aktarılıyor. Ama liste sayfasına metin olarak aktarılıyor. Bu aktarımı sayıya çeviremedim. Acaba nerede hata yapıyorum.
Gönderdiğim dosyada Programa Giriş/Tabela Giriş düğmeleri ile açılan formda sağ taraftaki textboxlara sayı giriyorum. Buraya girdiğim sayılar liste sayfasına aktarılıyor. Ama liste sayfasına metin olarak aktarılıyor. Bu aktarımı sayıya çeviremedim. Acaba nerede hata yapıyorum.
Kod:
Private Sub CommandButton63_Click()
Dim S1 As Worksheet, X As Integer
Dim Y As Integer, Tarih As Range, Bul As Range
Set S1 = Sheets("liste")
Set Tarih = S1.Rows("1:1").Find(Calendar1.Value)
If Not Tarih Is Nothing Then
Y = Tarih.Column
For X = 1 To 25
If Me.Controls("ComboBox" & X) <> "" Then
Set Bul = S1.Range("B:B").Find(Me.Controls("ComboBox" & X), , , xlWhole)
If Not Bul Is Nothing Then
S1.Cells(Bul.Row, Y) = Me.Controls("TextBox" & X)
End If
End If
Next
End If
Set S1 = Nothing
Set Tarih = Nothing
Set Bul = Nothing
MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub
Ekli dosyalar
-
167.8 KB Görüntüleme: 41
Son düzenleme: