vba kodu hata veriyor

[ali14]

Sheets(Sheets.Count).Name = s2.[a1]

hatası alıyorum kod tamamı altta nerde deişiklik yapmam gerek
veriyi aldıgım site
http://www.tjk.org/Tjk.Public.Web_v2/S/S/KosuTarihi.aspx?atKodu=15399&popUp=1&l=1

iyi akşamlar



Sub webtenverial()
Set s1 = Sheets("Ana Sayfa")
Application.ScreenUpdating = False
For a = 1 To [a65536].End(3).Row
Sheets.Add
Sheets(1).Move After:=Sheets(Sheets.Count)
Set s2 = Sheets(Sheets.Count)
With s2.QueryTables.Add(Connection:="URL;" & s1.Cells(a, "a"), Destination:=s2.[a1])
.WebFormatting = xlWebFormattingNone
.WebTables = """table4"",""table5"""
.Refresh BackgroundQuery:=False
End With
s2.[k:l].Delete
s2.[a:j].ColumnWidth = 12
Sheets(Sheets.Count).Name = s2.[a1]
s1.Activate
Next
End Sub

 

[ali14]

lütfen

arkadaşlar hadi lütfen zamanınız varsa bi cevap lütfen

 

[Orion1]

Son sayfadaki A1 hücresi boş olabilir.

 

[ali14]

malesef olmadı zaten kod yazma özürlü olduğumdan

 

[ali14]

lütfen

hadi vba kodcu arkadaşlar lütfen bir ilgilenin.

 

[Levent Menteşoğlu]

Site yapısı farklı olduğu için kod hata veriyor. Kod içindeki aşağıdaki satırı kaldırarak deneyin.

.WebTables = """table4"",""table5"""

 

[ali14]

konu kaldırmayı nasıl yapabilirim

levent hocam ilgin için cok saol bende olayı deneeye deneye şimdik çözdüm konu kaldır mayı ve ya cevap kitlemeyi formda nasıl yapabilirim.
sorunlarımı çözdükce açtığım konuyu kilitlemeyi veya kapamayı nasıl yapabilirim.hani formda kimse benimle fazla zaman kaydetmesin diye.
tekrar teşekkürler ve iyi geceler lütfen kusura bakma seni çok rahatsız ediyorum ama bi sorunum olunca 1 hafta felan uraşıyom bakıyorum beceremiyorum bende forma konu açıyorum formdanda 2-3 gün cevap gelmeyince valla ne yalan söyleyim sen ve bir iki arkadaş var hemen size özel msj.atıyorum beni affedin herşey için çok teşekkürler.