• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

User Form kullanmadan buton ile veri aktarma yapabilir miyim?

  • Konbuyu başlatan Konbuyu başlatan link_me
  • Başlangıç tarihi Başlangıç tarihi
L

link_me

Katılım
20 Şubat 2011
Mesajlar
116
Excel Vers. ve Dili
2010 versiyonu kulanmaktayım
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.
 
Son düzenleme:
siz verileri kaydedebiliyosunuz , kayıttan sonra silmesini mi istiyorsunuz ?
 
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.
 
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
 
Kaydet ve düzelt nasıl yapabilirim acaba
 
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:(
 
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.
 
Kayıtı deneyiniz.Olur ise silme ve değiştirmeye bakarız.
Kod: 
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
 
Son düzenleme:
çok teşekkür ederim emeğinize sağlık mantığını kavradım.Allah razı olsun
 
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..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst