hücredeki sayfa isminden kapalı dosyadaki sayfayı bulma

[serkantemel2004]

merhaba, benim sorunum, a1 hücresinde referans bi sayfa ismi var,b1 hücresinde de dosya ismi var.bu iki referans bilgiden yola çıkarak dosyayı makroyla nasıl bulabilirim.ben bişeyler yaptım ama bi türlü doğru sonuç vermiyor.yaptığım makroyu gönderiyorum.yardımcı olursanız çok mutlu olurum.

Sub Düğme1_Tıklat()
Workbooks.Open ("C:\ÜPK\" & [a1] & ".xls")
[b1] = ActiveSheet.Name
Worksheets(ActiveSheet.Name).Select
Range("a26:e56").Select
Selection.Copy
Windows("FR-75-47 URETIM EMRI - ROTA KARTI").Activate
Range("a26").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[Mahmut Kök]

Sayfa ve belge adlarından hareketle, yerini bilmediğiniz bir dosyayı mı buldurmaya çalışacaksınız, yoksa belirttiğiniz dosyayı açacak, yine belirttiğiniz sayfayı açacak ve bilgi mi taşıyacak?

 

[alpi]

Aşağıdaki kodlar işinizi görür umarım

Sub Düğme1_Tıklat()
dim Dosya
dim sayfa
sayfa=[a1]
dosya=[b1]
Workbooks.Open ("C:\ÜPK\" & dosya & ".xls")
Workbooks(dosya & ".xls")sheets(sayfa).Range("a26:e56").Select
Selection.Copy
Workbooks("FR-75-47 URETIM EMRI - ROTA KARTI").Activate
Range("a26").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[serkantemel2004]

sn mesleki ye

Sn mesleki öncelikle ilgilendiğiniz için teşekkür ederim.A adında bir excel sayfasında a1 hücresinde dosya adı var b1 hücresinde sayfa adı var.bu hücreleri referans olarak makro tarafından algılanacak ve belirttiğim dosya adına göre sadece excel dosyalarını bulunduğu bi klasöre gidecek ve o dosyayı açacak.yine belirttiğim sayfa adına göre de sayfayı seçecek.O sayfadan istediğim hücreleri kopyalayıp, a excel sayfasında istediğim bir alana kopyalıyacak.

 

[serkantemel2004]

program syntax hatası veriyor

Yardımınız için teşekkürler sn alpi programınız yapıştırdım.Fakat syntax hatası veriyor.Bir de kodların bu kısmını çalıştırmıyor.

Workbooks(dosya & ".xls")sheets(sayfa).Range("a26:e56").Select

 

[Mahmut Kök]

Workbooks(dosya & ".xls").sheets(sayfa).Range("a26:e56").Select


yani; Workbooks(dosya & ".xls") den sonra nokta koymalısınız. Kodlar çalışıyor.

 

[serkantemel2004]

Run-tİme Error '1004'

Programı çalıştıramıyorum.

Range sınıfının select yöntemi başarısız diye bir uyarı veriyor.

bu arada benim kopyalamaya çalıştığım hücreler biçimlendirilmiş hücredir.

TŞK.

 

[alpi]

birde şöyle deneyin

Sub Düğme1_Tıklat()
dim Dosya
dim sayfa
sayfa=[a1]
dosya=[b1]
Workbooks.Open ("C:\ÜPK\" & dosya & ".xls")
Workbooks(dosya & ".xls").sheets(sayfa).select
Workbooks(dosya & ".xls").sheets(sayfa).Range("a26:e56").Select
Selection.Copy
Workbooks("FR-75-47 URETIM EMRI - ROTA KARTI").Activate
Range("a26").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[serkantemel2004]

teşekkürler

üstatlar çok teşekkür ederim yardımlarnız için.programı çalıştırdım.