User Form kullanmadan buton ile veri aktarma yapabilir miyim?

[link_me]

Merhabalar,
bir ücret hesaplama formu yaptım bu verileri belli kritelere göre seçip hesaplama yaptırıyorum ama benim yapmak istediğim hesaplama yapınca kaydet diyince veriler sayfasındaki ilgili hücrelere kaydetmek ,silmek ,temizlemek istiyorum. kaydetttiğim verileri bulup ona göre sayfadan silmek istiyorum.nasıl bir yol izleyeceğimi bulamadım bu konuda yardımcı olabilir misiniz? dosyanın içinde anlatmaya çalıştım
http://s2.dosya.tc/server8/kdte38/Ucret_Hesapla.xlsx.html
İyi Günler dilerim.

 

[TayfunKaya]

siz verileri kaydedebiliyosunuz , kayıttan sonra silmesini mi istiyorsunuz ?

 

[link_me]

hesaplama yapacağım sayfada 4 adet buton şeklinde bir resim yaptım kaydet resmine tıklayınca veriler sayfasındaki hücrelere tüm bilgilerin aktarılmasını yapmak istiyorum.

 

[TayfunKaya]

ancak sil butonun yapabildim hocam.

command buton oluşturup içine bu kodu yapıştırınız.

Private Sub CommandButton1_Click()
Range("X4:X16").Select
Selection.ClearContents
End Sub

 

[link_me]

Kaydet ve düzelt nasıl yapabilirim acaba

 

[TayfunKaya]

Kaydet ve düzelt nasıl yapabilirim acaba

düzelt butonu ne işinize yarayacak hocam? veri sayfasını düzenlemek için mi ?
kaydet butonu için kod bakıcam becerebilirsem paylaşırım.

 

[link_me]

Veri sayfasını düzenlemek için öğrenci adı soyadını yazınca değiştir diyince veri sayfamdaki verilerin değişmesini istiyorum.
bir türlü çözüm üretemiyorum

 

[çıtır]

Dosyanızı bakmak istediğimde virüs uyarısı alıyorum.Altın üye olduğunuza göre dosyanızı siteyede yükleye bilirdiniz.Siteye yüklerseniz belki uyarı vermez.

 

[link_me]

Ekleme yaptım dosyayı

 

[çıtır]

Kayıtı deneyiniz.Olur ise silme ve değiştirmeye bakarız.

Sub kayıt()
Dim s1 As Worksheet: Dim s2 As Worksheet: Dim t As Long: Dim sr As Long
Set s1 = Sheets("Öğrenci Bilgileri"): Set s2 = Sheets("veriler"): Set wf = WorksheetFunction
                son = s2.Range("B65536").End(xlUp).Row + 1
                If s1.Range("X4") = "" Then
                MsgBox "Öğrenci adını girmeniz gerekiyor.", vbCritical, "Dikkat"
                Exit Sub
                End If
                If wf.CountIf(s2.Range("B2:B" & son - 1), s1.Range("X4")) > 0 Then
               MsgBox "Mükerrer kayıt.", vbCritical, "Dikkat"
                Exit Sub
                End If
            s2.Range("B" & son).Value = s1.Range("X4"): s2.Range("C" & son).Value = s1.Range("X5")
            s2.Range("D" & son).Value = s1.Range("X6"): s2.Range("E" & son).Value = s1.Range("X7")
            s2.Range("F" & son).Value = s1.Range("X8"): s2.Range("G" & son).Value = s1.Range("X9")
            s2.Range("H" & son).Value = s1.Range("X12"): s2.Range("I" & son).Value = s1.Range("X14")
            s2.Range("J" & son).Value = s1.Range("X15"): s2.Range("K" & son).Value = s1.Range("X16")
            s2.Range("A2:A6000").ClearContents
For t = 2 To [b65536].End(3).Row
If Not s2.Cells(t, 2) = "" Then
sr = sr + 1: s2.Cells(t, 1) = sr
End If
Next t
MsgBox "Kayıt işlem tamamlanmıştır.", vbInformation, "Bilginize"
End Sub

 

[link_me]

çok teşekkür ederim emeğinize sağlık mantığını kavradım.Allah razı olsun

 

[çıtır]

çok teşekkür ederim emeğinize sağlık mantığını kavradım.Allah razı olsun

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[czeybel]

Benimde buna benzer bir konuda yardıma ihtiyacım var hocam, konu başlığı açtım az önce yardımcı olabilir misiniz rica etsem konu biraz önemli..

 

[ozgurr34]

çok teşekkür ederim emeğinize sağlık mantığını kavradım.Allah razı olsun

Hocam merhaba, düzelt butonu konusunda bir gelişme kaydedebildiniz mi ?