• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

upraveno na znovuprocházení

Sub Button1_Click()
Dim znovu
With ActiveWorkbook.Sheets("Sheet1")
For x = y To .Cells(.Rows.Count, "A").End(xlUp).Row
' Zahada
If Cells(x, 1).Text = "PRAVDA" Then
MsgBox ("Riadok " & x & " ma zahadu prosim opravte .... makro bude pokracovat od tohoto riadku dalej")
y = x
Exit For
End If
If x = .Cells(.Rows.Count, "A").End(xlUp).Row Then
znovu = MsgBox("Konec sloupku - pročítat znovu?", vbYesNo)
If znovu = vbYes Then
x = 1
Else
y = 0
Exit For
End If
End If
Next
y = y + 1
End With
End Sub

v příloze od Palooo jsou třeba dvě malé úpravy, aby chodilo:
a) If Cells(x, 1).Text = "PRAVDA" Then -> přidány uvozovky aby šlo o text
b) na konci místo y=1 má být y = y + 1 -> pokračuje od následujícího řádku proti tomu kde zjistil "záhadu"

Díky za nápady - určitě využiji někdy jindy... Opičák má pravdu, problém již byl vyřešen jiným pohledem na problém.
Pěkný listopadový den.
V.

Pro názornost posílám soubor.
Díky.

V.

Dobré poledne,
nedaří se mi následující:
Na Userform1 mám text. pole, do něho bych rád vložil hypertext. odkaz prostřednictvím nabídky z menu. V buňce listu je to Ctrl+K (nebo pravé tl. myši a hypertext. odkaz), v userform ale nechodí. Jak na to?
Díky za nápad.

V.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse