Veri İlgili Sayfaya Aynen Aktarılsın

[alptun20]

Ekteki dosyada elimden geldiği kadar sorunumu anlatmaya çalıştım. Şimdiden yardımlarnız için sağolun..

 

[alptun20]

Pardon dosyayı eklemeyi unutmuşum. :redface:

 

[uzmanamele]

merhaba

fonksiyonla yapılan çözüm işinizi görür mü?

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim sat As Long
Sheets("Veri Girişi").Select
If ComboBox1.Value = "" Then Exit Sub
sat = Cells(65536, "A").End(xlUp).Row + 1
If sat > 65533 Then
    MsgBox "Veri Girişi sayfasında satır doldu.Başka kayıt yapamazsınız.", vbCritical, "UYARI"
    Exit Sub
End If
If Not IsNumeric(TextBox1.Text) Then
    MsgBox "Miktar sayısal bir değer olmalıdır.", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
Cells(sat, "A").Select
Cells(sat, "A").Value = ComboBox1.Value
Cells(sat, "B").Value = ComboBox2.Value
Cells(sat, "C").Value = CDbl(TextBox1.Value)
Cells(sat, "C").NumberFormat = "#,##0.00"
Cells(sat, "D").Value = TextBox2.Text
Cells(sat, "E").Value = TextBox3.Text

With Sheets(ComboBox1.Value)
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    If sat > 65533 Then
        MsgBox "[ " & .Name & " ] sayfasında satır doldu.Başka kayıt yapamazsınız.", vbCritical, "UYARI"
        Exit Sub
    End If
    .Cells(sat, "A").Value = ComboBox1.Value
    .Cells(sat, "B").Value = ComboBox2.Value
    .Cells(sat, "C").Value = CDbl(TextBox1.Value)
    .Cells(sat, "C").NumberFormat = "#,##0.00"
    .Cells(sat, "D").Value = TextBox2.Text
    .Cells(sat, "E").Value = TextBox3.Text
End With
MsgBox "Kayıt Başarı ile girildi.", vbOKOnly + vbInformation, "KAYIT"
End Sub

 

[alptun20]

İlginize teşekkür ederim. Sanırım ben Süleyman Beyin formülünü kullanacağım, nedense formül bana her zaman daha sıcak geliyor, kodlar biraz itici gelmiştir her zaman bana.

Tekrar teşekkür ederim.

 

[Orion1]

İlginize teşekkür ederim. Sanırım ben Süleyman Beyin formülünü kullanacağım, nedense formül bana her zaman daha sıcak geliyor, kodlar biraz itici gelmiştir her zaman bana.

Tekrar teşekkür ederim.

Sorunza cevabı fonksiyon olarak almak istiyorsanız sorunuzu fonksiyonlar bölümünde makro ile çözüm almak istoyyorsanız sorunuzu VBA makrolar bölümünde sorunuz.Böylece başkalarının zamanınını almamış olursunuz.Mesela bu soru fonksiyonlar bölümünde soruldsaydı ben bu makroyu yazmayacaktım

 

[alptun20]

Sorunza cevabı fonksiyon olarak almak istiyorsanız sorunuzu fonksiyonlar bölümünde makro ile çözüm almak istoyyorsanız sorunuzu VBA makrolar bölümünde sorunuz.Böylece başkalarının zamanınını almamış olursunuz.Mesela bu soru fonksiyonlar bölümünde soruldsaydı ben bu makroyu yazmayacaktım

Evren Bey bildiğiniz gibi forumda daha yeniyim, acemiliğime verin, vaktinizi çaldığım içinde hakkınızı helal edin. Bundan sonra daha dikkatli davranacağıma emin olabilirsiniz. İlginize teşekkür ederim saygılarımla.