Soru sayfalar arası veri aktarımı. vba

[nurullah 16]

TASERON_PERSONEL_LISTESI._1_.xlsm dosyasını indir - download

TASERON_PERSONEL_LISTESI._1_.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

kıymetli arkadaşlar. personel listem var. bu liste olan forma bir personelin " çıkış tarihini "girdiğimde o kayıta ait tüm verilerin. "çıkış alan sayfaya" gitmesini istiyorum. bu konunda Allah için yardımcı olacak varmı dır? teşekkür ederim.

 

[Cengiz Demir]

Merhabalar form kodlama sayfasındaki Textbox5'in (SİL) kodlarını aşağıdaki gibi değiştirirseniz:
Eğer çıkış tarihi kutucuğu dolu ise;İ seçtiğiniz kaydı çıkış sayfasına işleyip siler.
Çıkış tarihi boşsa sadece silme işlemi yapar.
Tarih doğrulaması yapmaz. Nokta bile koyarsanız işlem yapar.

Private Sub CommandButton5_Click()
Dim Cks
On Error Resume Next
Cks = ""
XD = ListBox1.List(ListBox1.ListIndex, 0) + 5
Sstr = Sheets("Çıkış alan personel").Cells(Rows.Count, 2).End(xlUp).Row + 1

If TextBox5.Value <> "" Then

        Sheets("personel listesi").Cells(XD, 6) = TextBox5.Value
        Cks = Sheets("personel listesi").Range("C" & XD & ":K" & XD)
        Sheets("Çıkış alan personel").Range("B" & Sstr & ":J" & Sstr) = Cks
       
End If


If Me.ListBox1.ListIndex <> -1 Then
    XD = ListBox1.List(ListBox1.ListIndex, 0) + 5
    ListBox1.RowSource = ""
    Sheets("personel listesi").Rows(XD).Delete
   
ListBox1.ColumnCount = 8
ListBox1.ColumnWidths = "40;100;"
ListBox1.ColumnHeads = False
ListBox1.RowSource = "'personel listesi'!B5:K" & Sheets("personel listesi").[c65536].End(xlUp).Row

   
End If
For X = XD To ListBox1.ListCount
    Sheets("personel listesi").Cells(X, 1) = X - 1
Next

If Cks <> "" Then

    MsgBox "Çıkış Kaydı Tamamlandı", vbCritical
    Else
    MsgBox "Kayıt Silme İşlemi Tamamlandı", vbCritical

End If

End Sub

 

[nurullah 16]

Merhabalar form kodlama sayfasındaki Textbox5'in (SİL) kodlarını aşağıdaki gibi değiştirirseniz:
Eğer çıkış tarihi kutucuğu dolu ise;İ seçtiğiniz kaydı çıkış sayfasına işleyip siler.
Çıkış tarihi boşsa sadece silme işlemi yapar.
Tarih doğrulaması yapmaz. Nokta bile koyarsanız işlem yapar.

Private Sub CommandButton5_Click()
Dim Cks
On Error Resume Next
Cks = ""
XD = ListBox1.List(ListBox1.ListIndex, 0) + 5
Sstr = Sheets("Çıkış alan personel").Cells(Rows.Count, 2).End(xlUp).Row + 1

If TextBox5.Value <> "" Then

        Sheets("personel listesi").Cells(XD, 6) = TextBox5.Value
        Cks = Sheets("personel listesi").Range("C" & XD & ":K" & XD)
        Sheets("Çıkış alan personel").Range("B" & Sstr & ":J" & Sstr) = Cks
       
End If


If Me.ListBox1.ListIndex <> -1 Then
    XD = ListBox1.List(ListBox1.ListIndex, 0) + 5
    ListBox1.RowSource = ""
    Sheets("personel listesi").Rows(XD).Delete
   
ListBox1.ColumnCount = 8
ListBox1.ColumnWidths = "40;100;"
ListBox1.ColumnHeads = False
ListBox1.RowSource = "'personel listesi'!B5:K" & Sheets("personel listesi").[c65536].End(xlUp).Row

   
End If
For X = XD To ListBox1.ListCount
    Sheets("personel listesi").Cells(X, 1) = X - 1
Next

If Cks <> "" Then

    MsgBox "Çıkış Kaydı Tamamlandı", vbCritical
    Else
    MsgBox "Kayıt Silme İşlemi Tamamlandı", vbCritical

End If

End Sub

çok tşk eerim hocam sağ olun var olun

 

[Cengiz Demir]

Rica ederim

çok tşk eerim hocam sağ olun var olun