Listelerin güncellenmesi hakkında...

[yesimgurol]

Korhan Bey,cevap için belki çok geç oldu belki ama 14 nolu mesajınızdaki gibi kullanmaya karar verdim.
Yalnız o kodlarda şunu yapabilirmiyiz acaba,NBKABL sayfasında butona bastığımızda ICP yazanlar aktarıldığında işlem bittiğinde NBKABL sayfasındaki filtreleme kaldırılıp,imlecin son girilen satıra gelmesi mümkün mü?

 

[yesimgurol]

Merhabalar,
Kodları tekrar yazmam gerekir ise;
Güncelleme için kullandığım kod:

Private Sub CommandButton1_Click()

Dim con As Object: Set con = CreateObject("adodb.connection")
    Dim rs As Object: Set rs = CreateObject("adodb.recordset")
    
    'YOL="\\Adf\n$\NUMUNE KABUL HASTA LİSTES.xlsx"
    yol = "\\Adf\n$\NUMUNE KABUL HASTA LİSTES.xlsx"
    
    con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
    yol & ";Extended Properties=""Excel 12.0;HDR=No"""
    
    sorgu = "select * from [HASTA LİSTESİ$A1:R65536]"
    rs.Open sorgu, con, 3, 1
    
    If rs.RecordCount > 0 Then
        Range("A1").CopyFromRecordset rs
    End If
  
    
    rs.Close
    
    Set con = Nothing: Set rs = Nothing: sorgu = ""
    ActiveWorkbook.Close False
End Sub

Sayfa bu kodlar ile güncellendik ten sonra aşağıdaki kodlar ile güncelleme işlemi yapılan sayfada şarta bağlı veri aktarımı yapmaktayım başka bir sayfaya,

Private Sub ICPaktar55()
Dim sh As Worksheet, sonsat As Long, s2 As Worksheet
Set sh = Sheets("NMKABL")
Set s2 = Sheets("ICPMS")
s2.Range("B2:S" & Rows.Count).ClearContents
sh.Range("B1").AutoFilter
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
sh.Range("B1").AutoFilter field:=6, Criteria1:="ıcp"
Application.ScreenUpdating = False
sh.Range("B1").CurrentRegion.Copy s2.Range("B2")
Application.ScreenUpdating = True

MsgBox "İşlem tamam." & vbLf & "yesim"
sh.Range("B1").AutoFilter
End Sub

Bu iki kod 7 nolu mesajda birleştirildi.Yani son hali de bu ;

Private Sub CommandButton1_Click()

Dim con As Object: Set con = CreateObject("adodb.connection")
    Dim rs As Object: Set rs = CreateObject("adodb.recordset")
    
    'YOL="\\Adf\n$\NUMUNE KABUL HASTA LİSTES.xlsx"
    yol = "\\Adf\n$\NUMUNE KABUL HASTA LİSTES.xlsx"
    
    con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
    yol & ";Extended Properties=""Excel 12.0;HDR=No"""
    
    sorgu = "select * from [HASTA LİSTESİ$A1:R65536]"
    rs.Open sorgu, con, 3, 1
    
    If rs.RecordCount > 0 Then
        Range("A1").CopyFromRecordset rs
    End If
    
    rs.Close
    
    [COLOR="Red"]ICPaktar55[/COLOR]

    Set con = Nothing: Set rs = Nothing: sorgu = ""
    ActiveWorkbook.Close False    
End Sub

Fakat son hali ile kullandığımda şu uyarıyı alıyorum."Subscript out of range" ve

Set sh = Sheets("NMKABL")

bu kısım sarı oluyor.
:roll:

 

[emre eller]

veri sayfasına aktarılan bilgileri açılır kutu ile geri çağır

merhaba Korhan bey kusura bakmayın benim benzer bir konuda yardımınıza ihtiyacım var "BİLGİ FORMU " sayfasına girilen bilgileri "veri" sayfasına aktarabiliyorum fakat iş kaydedilen bilgileri geri çağırmaya geldiğinde yapamıyorum birazda acemiyim tabi rica etsem girilen T.C. kimlik numarasına yada isme göre girilen verileri geri çağırabilir miyim birde üzerinde güncelleme yapabilir miyim.Bu konuda bana yardımcı olabilir misiniz yaklaşık üç haftadan beri sırf buna uğraşıyorum bir türlü yapamadım