iki farklı çalışma kitabı

sonokta · 25 Aralık 2009

Elimde iki tane farklı çalışma kitabı var birincisinin ismi a diğerinin ismi b

a çalışma kitabının x sayfası y satırından
b çalışma kitabnın x sayfasının y satırını çekmek istiyorum nasıl yapabilirim

Orion1 · 25 Aralık 2009

Az önce bununla ilgili bir soru yaptım.
Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/showthread.php?t=78598

sonokta · 26 Aralık 2009

Evren Gizlen' Alıntı:
Az önce bununla ilgili bir soru yaptım.
Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/showthread.php?t=78598

Sayın evren ilginize tşk ederim fakat ben dosya yolu sayfa vs yazmama rağmen hep hata verdi

Ekteki dosyada 1 deki n1-1 adlı sayfadaki verileri borsa yazılı kısıma çekmek istiyorum

veri al diyerek yaptım oda çok karışık oldu

mümkünse ekteki dosyada formulü yazdırırmısınız

Orion1 · 26 Aralık 2009

Dosyanız ektedir.

Kod:

Sub aktar()
Dim k As Byte, i As Byte
Application.ScreenUpdating = False
Range("A13:L109").ClearContents
For i = 3 To 6
    Application.ExecuteExcel4Macro ("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C10")
Next
Range("A7").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R7C1")
Range("A9").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R9C1")

For i = 13 To 109
    For k = 1 To 12
        Cells(i, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C" & k)
    Next k
Next i
Application.ScreenUpdating = True
MsgBox "Veriler alındı." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

sonokta · 26 Aralık 2009

Evren Gizlen' Alıntı:

Dosyanız ektedir.

Kod:

Sub aktar()
Dim k As Byte, i As Byte
Application.ScreenUpdating = False
Range("A13:L109").ClearContents
For i = 3 To 6
    Application.ExecuteExcel4Macro ("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C10")
Next
Range("A7").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R7C1")
Range("A9").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R9C1")

For i = 13 To 109
    For k = 1 To 12
        Cells(i, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C" & k)
    Next k
Next i
Application.ScreenUpdating = True
MsgBox "Veriler alındı." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

Sayın evren çok tşk ederim

Şimdi ben ikinci bir çalışma kitabından 2 seansı çekeceğim onun için bu şekilde mi yapmam lazım

Birinci kitapta n1-1 olan burada n2-1 diğer kitaın ismi bir ken bunun 2

Sub aktar2()
Dim k As Byte, i As Byte
Application.ScreenUpdating = False
Range("A13:L109").ClearContents
For i = 3 To 6
Application.ExecuteExcel4Macro ("'" & ThisWorkbook.Path & "\[2.xls]N2- 1'!R" & i & "C10")
Next
Range("A7").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[2.xls]N2- 1'!R7C1")
Range("A9").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[2.xls]N2- 1'!R9C1")

For i = 13 To 109
For k = 1 To 12
Cells(i, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C" & k)
Next k
Next i
Application.ScreenUpdating = True
MsgBox "Veriler alındı." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

Orion1 · 26 Aralık 2009

Kitap ve sayfa isimlerini yeni duruma göre değiştirmeniz gerekiyor.

sonokta · 26 Aralık 2009

Cells(i, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C" & k)

şu kısmı gözümden kaçırmışım tekrar tşk ederim

sonokta · 26 Aralık 2009

Çok oldum biliyorum ama ne yapayım sizler gibi henüz pratik çözüm üretemiyorum

yukarıdaki çalışmayı biaz daha özetlemek istedim a13 L109 yerine
sadece d14 L14 satırındaki değerleri çekmek istersem ve a2 ı2 ye aktarmak için kodu nasıl düzenleyebilirim

Orion1 · 26 Aralık 2009

sonokta' Alıntı:
Çok oldum biliyorum ama ne yapayım sizler gibi henüz pratik çözüm üretemiyorum

yukarıdaki çalışmayı biaz daha özetlemek istedim a13 L109 yerine
sadece d14 L14 satırındaki değerleri çekmek istersem ve a2 ı2 ye aktarmak için kodu nasıl düzenleyebilirim

deneyiniz.

Kod:

For k = 4 To 12
Cells(i, k-3).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R4C" & k)
next

sonokta · 26 Aralık 2009

Malesef çalıştıramadım

1 deki n1-1 deki d14 l14 verilerini
borsa sayfa 2 ye tablonun altına çekmeye çalışmadım olmadı:S

Orion1 · 26 Aralık 2009

Tablonun en altına 14 nüc satırı 110ncu satıra attım.

Dosya ektedir.

Kod:

For k = 4 To 9
    Cells(110, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R14C" & k)
Next

sonokta · 26 Aralık 2009

çok tşk ederim ama bişey sormak istiyorum burada kullandığınız i ve k ne anlama geliyor

Orion1 · 26 Aralık 2009

sonokta' Alıntı:
çok tşk ederim ama bişey sormak istiyorum burada kullandığınız i ve k ne anlama geliyor

i satır no,k sütun no.

sonokta · 27 Aralık 2009

Sub aktar()
Dim k As Byte, i As Byte
Application.ScreenUpdating = False
Range("A13:L109").ClearContents

For k = 1 To 12
Cells(3, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R14C" & k)
Next
Application.ScreenUpdating = True
MsgBox "Veriler alındı." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

bu kodu 3. sütün 14 satıra yazdırmak istedim ama beceremedim

Cells([14,i], [3, k]).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R14C" & k)

hhaseken · 27 Aralık 2009

Veri özet ile denedim uyarsa size

sonokta · 27 Aralık 2009

hhaseken' Alıntı:
Veri özet ile denedim uyarsa size

borsa xls

Aslında yapmak istediğim böyle bir şey fakat sadece tek hisseyyi oraya çekmek istiyorum her hisse için ayrı bir sayfa oluşturacağım çünkü

İkincisi
TSS ile biten yerden sonra ikinci seansı da oraya çekmek istiyorum

Tam olarak yapmak istediğim bu

sonokta · 27 Aralık 2009

zipte 3 tane dosya var

Borsa
1
2

Benim yapmak istediğim 1 deki (n1-1)ve 2 deki (n2-1) deki acı badem yazan hisseyi borsa yazılı kısma çekmek sadece o hisseyi

Umarım açıklayabilmişimdir.

Ayrıca yardımınız için her ikinize tekrar tekrar çok tşk ederim

Orion1 · 27 Aralık 2009

Dosyanız ektedir.

Kod:

Sub acibadem()
Dim k As Byte, i As Byte, sat As Long, deg As String
Sheets("ACIBD.E").Select
sat = 3
Range("A3:R65536").ClearContents
For i = 14 To 108
    deg = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C3")
    If deg Like "ACIBADEM" & "*" Then
        For k = 1 To 12
            Cells(sat, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C" & k)
        Next
        sat = sat + 1
    End If
Next
For i = 14 To 108
    deg = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[2.xls]N2- 1'!R" & i & "C3")
    If deg Like "ACIBADEM" & "*" Then
        For k = 1 To 12
            Cells(sat, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[2.xls]N2- 1'!R" & i & "C" & k)
        Next
        sat = sat + 1
    End If
Next
MsgBox "ACI BADEM akatarıldı." & vbLf & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

sonokta · 27 Aralık 2009

Evren Gizlen' Alıntı:

Dosyanız ektedir.

Kod:

Sub acibadem()
Dim k As Byte, i As Byte, sat As Long, deg As String
Sheets("ACIBD.E").Select
sat = 3
Range("A3:R65536").ClearContents
For i = 14 To 108
    deg = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C3")
    If deg Like "ACIBADEM" & "*" Then
        For k = 1 To 12
            Cells(sat, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[1.xls]N1- 1'!R" & i & "C" & k)
        Next
        sat = sat + 1
    End If
Next
For i = 14 To 108
    deg = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[2.xls]N2- 1'!R" & i & "C3")
    If deg Like "ACIBADEM" & "*" Then
        For k = 1 To 12
            Cells(sat, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[2.xls]N2- 1'!R" & i & "C" & k)
        Next
        sat = sat + 1
    End If
Next
MsgBox "ACI BADEM akatarıldı." & vbLf & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

çok saol hocam ilginize çok tşk ederim

Orion1 · 27 Aralık 2009

sonokta' Alıntı:
çok saol hocam ilginize çok tşk ederim

Rica ederim.
İyi çalışmalar.

iki farklı çalışma kitabı

sonokta

Orion1

Uzman

sonokta

Ekli dosyalar

Orion1

Uzman

Ekli dosyalar

sonokta

Orion1

Uzman

sonokta

sonokta

Orion1

Uzman

sonokta

Ekli dosyalar

Orion1

Uzman

Ekli dosyalar

sonokta

Orion1

Uzman

sonokta

hhaseken

Ekli dosyalar

sonokta

sonokta

Ekli dosyalar

Orion1

Uzman

Ekli dosyalar

sonokta

Orion1

Uzman