veri çekme

[sinemomec]

excel sayfasında sıralatma yapıp oradan userform üzerinden combobax a veri alıyorum ancak excel sayfasına girip çıkmazsam sıralama yapmıyor yani güncel bilgileri combobax veri vermiyor hatam nerede

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
    Range("C1").PasteSpecial xlPasteValues
    Range("C:C").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

 

[askm]

Activate kısmına eklemissiniz kodları. Modüle ekleyin onu çağırın.

 

[sinemomec]

modülde nasıl otomatik yapacağım

 

[sinemomec]

ben userform üzerinden çalışıyorum

 

[askm]

Sub Deneme()
Application.ScreenUpdating = False
    Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Copy
    Range("C1").PasteSpecial xlPasteValues
    Range("C:C").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Activate()
    Call Deneme 'burdaki gibi comboboxı tetikleyen kısıma yazabilirsiniz.
End Sub

 

[sinemomec]

benim kaydet kodum ekteki gibi ancak kaydet dediğim zaman gelenevrak sayfasına kaydediyor gelen evrak sayfasının B satırından gidenkurum A satırına veri atıyor işte gidenkurum sayfasına açmazsam verileri güncellemiyor

Private Sub Cmdkaydet_Click()
If Cbgeldiğikurum.Text = "" Then
MsgBox "GELDİĞİ KURUM VE KURULUŞ BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf Tbtarih.Text = "" Then
MsgBox "TARİH BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf Tbevrakno.Text = "" Then
MsgBox "EVRAK NO BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf tbek.Text = "" Then
MsgBox "EK BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf Cbdesimaldosya.Text = "" Then
MsgBox "DESİMAL DOSYA KODU OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf Cbkonu.Text = "" Then
MsgBox "KONUSU OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
ElseIf Cbhavaleedilenmemur.Text = "" Then
MsgBox "HAVALE EDİLEN MEMUR BOŞ OLAMAZ.", vbInformation, "BİLDİRİ"
Exit Sub
End If
sonsatır = WorksheetFunction.CountA(Worksheets("GELENEVRAK").Range("A:A")) + 1
If sonsatır = 2 Then
Worksheets("GELENEVRAK").Cells(sonsatır, 1) = 1
Else
Worksheets("GELENEVRAK").Cells(sonsatır, 1) = Worksheets("GELENEVRAK").Cells(sonsatır - 1, 1) + 1
End If
Worksheets("GELENEVRAK").Cells(sonsatır, 2) = Cbgeldiğikurum.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 3) = Tbtarih.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 4) = Tbevrakno.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 5) = tbek.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 6) = Cbdesimaldosya.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 7) = Cbkonu.Value
Worksheets("GELENEVRAK").Cells(sonsatır, 8) = Cbhavaleedilenmemur.Value
MsgBox "VERİ KAYDEDİLDİ.", vbInformation, "BİLDİRİ"
Cbgeldiğikurum.Value = ""
Tbtarih.Value = ""
Tbevrakno.Value = ""
tbek.Value = ""
Cbdesimaldosya.Value = ""
Cbkonu.Value = ""
Cbhavaleedilenmemur.Value = ""
listele
End Sub