Sayfa adını hücreden aldırmak

[tahsinanarat]

Sub Talep_olusturma_Guncelle()
Sheets("veri").Select
Range("A6:N65000").ClearContents
Set con = CreateObject("Adodb.Connection"): Set rs = CreateObject("Adodb.RecordSet")

Dosya = application.GetOpenFilename(filefilter:="EXCEL belgeler(*.xls*),(*.xls*)", _
        Title:="KAYNAK EXCEL belgesini seçiniz.")
If Dosya = Empty Then Exit Sub

con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
Dosya & ";extended properties=""excel 12.0;hdr=no;imex=no"""
sorgu = "Select f1,f2,F3,F4,F5,F6,F7 from [Elbise$A2:J65536] WHERE f5 > 0"

rs.Open sorgu, con, 1, 1
Range("a6").CopyFromRecordset rs
rs.Close: con.Close
Set con = Nothing: Set rs = Nothing: sorgu = Empty
ActiveSheet.Columns("A:N").EntireColumn.AutoFit
On Error Resume Next
Range("Z1") = 1
[A6:N65536].Sort Key1:=[A6]
Range("A5:N5").Font.Bold = True
End Sub

Yukarıdaki kodda: from [Elbise$A2:J65536] Elbise adlı sayfa adını diğer sayfaları da kullanmak istediğimden aktif sayfanın B4 Hücresinden aldırmak istiyorum. Bu konuda yardımcı olabilirmisiniz. Teşekkürler

 

[kulomer46]

Merhaba

Aşağıdaki şekilde deneyiniz.

Aşağıdaki kodu deneyip kontrol etmedim.

Fakat çözüm için bir mantık yürüttüm.

Bir deneyin belki çalışır.

Selamlar : )

Sub Talep_olusturma_Guncelle()

Sheets("veri").Select

Range("A6:N65000").ClearContents

Set con = CreateObject("Adodb.Connection"): Set rs = CreateObject("Adodb.RecordSet")


Dosya = application.GetOpenFilename(filefilter:="EXCEL belgeler(*.xls*),(*.xls*)", _

        Title:="KAYNAK EXCEL belgesini seçiniz.")

If Dosya = Empty Then Exit Sub


con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _

Dosya & ";extended properties=""excel 12.0;hdr=no;imex=no"""

syfadi=cells(4,2)

sorgu = "Select f1,f2,F3,F4,F5,F6,F7 from [" & syfadi & "$A2:J65536] WHERE f5 > 0"


rs.Open sorgu, con, 1, 1

Range("a6").CopyFromRecordset rs

rs.Close: con.Close

Set con = Nothing: Set rs = Nothing: sorgu = Empty

ActiveSheet.Columns("A:N").EntireColumn.AutoFit

On Error Resume Next

Range("Z1") = 1

[A6:N65536].Sort Key1:=[A6]

Range("A5:N5").Font.Bold = True

End Sub

 

[tahsinanarat]

Sn. @kulomer46
syfadi = Cells(4, 2)
syfadi =Range("b4").value
olarak denemiştim, olmamıştı.
Şu an istediğim gibi oldu çok teşekkür ediyorum, elinize sağlık

 

[kulomer46]

Sn. @kulomer46
syfadi = Cells(4, 2)
syfadi =Range("b4").value
olarak denemiştim, olmamıştı.
Şu an istediğim gibi oldu çok teşekkür ediyorum, elinize sağlık

Kolay Gelsin
Selamlar...