Sayfayı farklı kaydet yapınca kod otomatik değişsin.

[s.savas]

Merhaba arkadaşlar.

Aşağıda altı çizili kısım, kitap adı değiştirilince, kitap adıyla eşitlenebilirmi?
Çünkü belgeyi farklı kaydet yapınca kod çalışmayacaktır veya farklı kaydet yapınca manuel olarak kodu da tekrar düzenlemek gerekecek.
İlgilenecek arkadaşlara teşekkür ederim.

Sub TEFE_()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Workbooks.Open("http://www.tuik.gov.tr/PreIstatistikTablo.do?istab_id=664").Worksheets("18_t5").Activate
    Range("B5:O13").Select
    Selection.Copy
    [B][U][COLOR="Red"]Windows("Kitap1.xls").Activate[/COLOR][/U][/B] 
    [B][U][COLOR="red"]Sheets("Endeks").Select[/COLOR][/U][/B]
    Range("A7:N16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Workbooks("PreIstatistikTablo.do").Close
    

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Range("a1").Select
    MsgBox "Endeksler Güncellendi.", vbOKOnly + vbInformation, "Süleyman Savaş"
End Sub

 

[halit3]

Merhaba arkadaşlar.

Aşağıda altı çizili kısım, kitap adı değiştirilince, kitap adıyla eşitlenebilirmi?
Çünkü belgeyi farklı kaydet yapınca kod çalışmayacaktır veya farklı kaydet yapınca manuel olarak kodu da tekrar düzenlemek gerekecek.
İlgilenecek arkadaşlara teşekkür ederim.

Sub TEFE_()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Workbooks.Open("http://www.tuik.gov.tr/PreIstatistikTablo.do?istab_id=664").Worksheets("18_t5").Activate
    Range("B5:O13").Select
    Selection.Copy
    [B][U][COLOR=red]Windows("Kitap1.xls").Activate[/COLOR][/U][/B] 
    [B][U][COLOR=red]Sheets("Endeks").Select[/COLOR][/U][/B]
    Range("A7:N16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Workbooks("PreIstatistikTablo.do").Close
 
 
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Range("a1").Select
    MsgBox "Endeksler Güncellendi.", vbOKOnly + vbInformation, "Süleyman Savaş"
End Sub

ekli dosyaya bir bakınız.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub TEFE_()
    Dim Dosya_Adı As String
    Dosya_Adı = ThisWorkbook.Name
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Workbooks.Open("[URL]http://www.tuik.gov.tr/PreIstatistikTablo.do?istab_id=664").Worksheets("18_t5").Activate[/URL]
    Range("B5:O13").Select
    Selection.Copy
    Windows(Dosya_Adı).Activate
    Sheets("Endeks").Select
    Range("A7:N16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Workbooks("PreIstatistikTablo.do").Close
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Range("a1").Select
    MsgBox "Endeksler Güncellendi.", vbOKOnly + vbInformation, "Süleyman Savaş"
End Sub

 

[s.savas]

Halit hocam, Korhan hocam her ikinizede ayrı ayrı teşekkür ederim.

 

[halit3]

Halit hocam, Korhan hocam her ikinizede ayrı ayrı teşekkür ederim.

teşekkürler iyi çalışmalar.

 

[baydeniro]

Çok güzel bir kod, çok teşekkürler.

 

[halit3]

Çok güzel bir kod, çok teşekkürler.

Teşekkürler iyi çalışmalar