Lablerin adlarını koda yerleştirdim. Ancak renkli satırda hata verdi.

Nasıl düzeltilir.

' İŞE GİRİŞ VE İŞTEN ÇIKIŞ TOPLU BİLDİRGESİ

Sub GirisCikisBildirgesiTOPLU()



With CreateObject("internetexplorer.application")

.Visible = True

.navigate "https://uyg.sgk.gov.tr/SgkTescil4a/"



Do Until .ReadyState = 4: DoEvents: Loop

Do While .Busy: DoEvents: Loop



.document.all.j_id2030916047_790d5140.Value = 12345678912# 'Kullanıcı Adı

.document.all.j_id2030916047_790d5166.Value = 5 'Kontrol No

.document.all.j_id2030916047_790d511f.Value = 11111111 'Sistem Şifresi

.document.all.j_id2030916047_790d5125.Value = 22222222 'İşyeri Şifresi

End With



End Sub

[/align]