kOD SATIRININ UZUNLUĞU hata mesajı?

[QNURi]

Merhabalar,

VB' de bir kod satırı çok uzun olduğu için daha fazla karakter yazmama müsade etmiyor. Ancak satırdaki değişkenler fazla olduğu için hepsini yazmak zorundayım. İlla tek satırda yazmak zorundamıyım. Bir alt satırdan devam etmez mi kod? Word Wrap gibi bir özellik yok mudur?

Sonuna geldim projenin, ama şimdi de bu sorun çıktı. Lütfen yardım...

 

[Korhan Ayhan]

Selamlar,

Yardımcı olabilmemiz için kodu görmemiz gerekiyor. Ekleyebilir misiniz?

 

[QNURi]

Selamlar,

Yardımcı olabilmemiz için kodu görmemiz gerekiyor. Ekleyebilir misiniz?

Kodu ekte görebilirsiniz.
Buton koduna bakarsanız "HESAP" çalışma sayfasından birçok hücrenin bilgisini alarak link oluşturacak. Fakat kod satırında [Hesap!p97] & [Hesap!p98]... şeklinde devam eden kodun satıra sığmaması nedeniyle diğer hücreleri [Hesap!n] şeklinde devam edemiyorum.

Ekteki dosyanın kod sayfasından daha kolay anlaşılabilir.

 

[N.Ziya Hiçdurmaz]

Yanıt

Alt çizgi ile deneyiniz

Private Sub CommandButton1_Click()
On Error GoTo Hata
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & [HESAP!G111] & [HESAP!H111] & [HESAP!I111] & [HESAP!J111] & [HESAP!K111] & [HESAP!L111] & [HESAP!M111] & [HESAP!P56] & [HESAP!P57] & [HESAP!P58] & [HESAP!P59] & [HESAP!P60] & [HESAP!P61] & [HESAP!P62] & [HESAP!P63] & [HESAP!P64] & [HESAP!P65] & [HESAP!P66] & [HESAP!P67] & [HESAP!P68] & [HESAP!P69] & [HESAP!P70] & [HESAP!P71] & [HESAP!P72] & [HESAP!P73] & [HESAP!P74] & [HESAP!P75] & [HESAP!P76] & [HESAP!P77] & [HESAP!P78] & [HESAP!P79] & [HESAP!P80] & [HESAP!P81] & [HESAP!P82] & [HESAP!P83] & [HESAP!P84] & [HESAP!P85] & [HESAP!P86] & [HESAP!P87] & [HESAP!P88] & [HESAP!P89] & [HESAP!P90] & [HESAP!P91] & [HESAP!P92] & [HESAP!P93] & [HESAP!P94] & [P95] & [P96] & [P97] & [P98] & [P99] & [P100] & [P101] & [P102] & [P103] & [P104] & [P105] & [Q106] & [P107] & [P108] & [P109] & [P110] & [P111] & [P112] & [P113] & [P114] & [P115] & [P116] & [P117] & [P118] & [P119] & [P120] & [P121] & [P122] & [P123] & [P124] & [P125] & [P126] _
    & [P127], vbMaximizedFocus
    Exit Sub
Hata:
    MsgBox "İnternet bağlantısı şu anda kurulamıyor." _
    & Chr(10) & "Lütfen daha sonra tekrar deneyiniz.", vbCritical, "Dikkat !"
End Sub

 

[Zeki Gürsoy]

Bu kullanım sorununuzu çözer sanırım.

Sub test()
Dim a$

On Error GoTo Hata

For i = 6 To 13
    a = a & Sheets("hesap").Cells(111, i)
Next

For j = 56 To 127
    a = a & Sheets("hesap").Cells(j, "p")
Next

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & a, _
        vbMaximizedFocus
Exit Sub

Hata:
    MsgBox "İnternet bağlantısı şu anda kurulamıyor." _
    & Chr(10) & "Lütfen daha sonra tekrar deneyiniz.", vbCritical, "Dikkat !"
End Sub

 

[QNURi]

Çok teşekkür ederim.