Çözüldü çalışma kitabında x sayfası diye adres gösterme

Sheets("AKTİF_HASTA_LİSTESİ").Select

olarak dener misiniz?

muhsar' Alıntı:

Sheets("AKTİF_HASTA_LİSTESİ")
Rows("9:3423").Select
Selection.Copy

Genişletmek için tıklayın ...

Feyzullah' Alıntı:

VBA:Panoya kopyala

You must log in to view content
(1 satır)

Genişletmek için tıklayın ...

çok teşekkür ederim,elinize sağlık

LordKisame' Alıntı:

Sheets("AKTİF_HASTA_LİSTESİ").Select

olarak dener misiniz?

Genişletmek için tıklayın ...

teşekkür ederim ilginize

muhsar' Alıntı:

çok teşekkür ederim,elinize sağlık

Genişletmek için tıklayın ...

hocam hata verdi,biyeri yanlış yaptım sanki

tam olarak yukardaki koda yerleştirebilirmisiniz rica etsem

muhsar' Alıntı:

teşekkür ederim ilginize


hocam hata verdi,biyeri yanlış yaptım sanki

tam olarak yukardaki koda yerleştirebilirmisiniz rica etsem

Genişletmek için tıklayın ...

Application.ScreenUpdating = False
ActiveSheet.Unprotect "1"
Workbooks.Open Filename:="F:\EVDE SAĞLIK\VERİ_GİRİS.xlsm", UpdateLinks:=3
Rows("9:3423").Select
Selection.Copy
Windows("HASTA ARAMA.xlsm").Activate
Range("A3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Rows("9:9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.CutCopyMode = False
Windows("VERİ_GİRİS.xlsm").Activate
ActiveWindow.Close
Application.Run "'HASTA ARAMA.xlsm'!filtrele"
MsgBox "Güncelleme Yapıldı", vbInformation + vbMsgBoxRtlReading, "ExcelDestek.com"
ActiveSheet.Protect "1"
Application.ScreenUpdating = True
End Sub

kodun tam hali bu şekilde