Dış veri alma ve değişken atama

[muratsedef]

Merhaba arkadaşlar,
Cok kolay iki soru olacak sanırım ama 1 saattir arayıp forumda bulamadım

1- Bilgisayarımdaki başka bir excel dosyasının belli bir çalışma sayfasındaki verileri çekmeye yarayan bir kodu olan var mı?

2- Bir değişkene x çalışma sayfasının A1 hücresinde bulunan veriyi nasil atarım?

Değerli vaktini ayıran herkeze şimdiden çok teşekkürler.

Saygılarımla
Murat Sedef

 

[ockucukay]

Lütfen örnek bir dosya ekleyin, daha kolay yardımcı olabiliriz.

 

[muratsedef]

Lütfen örnek bir dosya ekleyin, daha kolay yardımcı olabiliriz.

1- Iki tane excel dosyasi ekledim. "1.xls"te "a" calisma sayfasinda veriler var. "2.xls"te makroyu calistirdigimda verilerin ayni sekilde "PV" calisma sayfasina B2 hücresinden baslayarak kopyalanmasini istiyorum.
Tabi kopyalayip yapistirmak da var ama sayilari cok fazla oldugundan imkansiz

2- Kod yazarken "i" degiskenini A1 hücresine nasil atarim. (atmak degil yanliz, atamak) Yani "i=calismasayfasi1.hücreA1" gibi bir kod var mi?

Değerli vaktini ayıran herkeze şimdiden çok teşekkürler.

 

[Kemal Demir]

Selam,

Size Yol Göstrecegıne inandıgım bir dosyayı ekliyorum.

"c:\" ye deneme isminde bir folder açınız

2 nolu xls sayfasındaki makroyu calısıtırnız.

Zannedersem azda olsa sıze yuol gösterir.

 

[muratsedef]

2 nolu xls sayfasındaki makroyu calısıtırnız.

QUOTE]

Sayin kemaldemir,

Sanirim calistigim bilgisayarda disardan makro indirmekle ilgili bir kisitlama var. Rica etsem, makrodaki kodu ayrica text olarak yollayabilir misiniz? Kusura bakmayin.

Tesekkürler

 

[Kemal Demir]

Sub Dısverial()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
adres = "c:\deneme"
isim = "1.xls"
Workbooks.Open Filename:=adres & "\" & isim
'İstersenız alttaki gibi aralık belirleyebilirsiniz
Range("a1:c32").Copy
'İstersenız Alttaki Satır gibi Tum sayfayı Ala bilirsiniz.
'Cells.Copy
Windows("2.xls").Activate
Range("b2").PasteSpecial
Windows(isim).Close
[a1].Select

End Sub

Umarım İş görür