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

Příspěvky uživatele

co takhle

Application.DisplayAlerts = False

If Err.Number < 0 Then
otazka = MsgBox("Soubor BLABLA již existuje. Má se existující soubor nahradit?", vbYesNo)
If otazka = vbYes Then ActiveWorkbook.Save Else Exit Sub
End If

Nebylo by jednodušší použít vyhledávání "Ctrl+F" zadat hledaný výraz a dát najít vše?

Pak by jste věděl v kterých řádcích se hledaný výraz nachází.

ahoj apostrof máš špatně
ne “První”
ale "První"

Private Sub CommandButton1_Click()
Dim i As Integer, x As Integer
Dim sRange As String
Dim ws As Worksheet

Application.ScreenUpdating = False
'Set the Worksheet object to the Active Sheet
Set ws = ActiveSheet

'Get the range from the Range Cell
sRange = Range("A53").Value
x = ws.Range(sRange).Columns.Count ' počet sloupců
ws.Range(sRange).Copy
ws.Range("A56").PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
Application.CutCopyMode = False

ws.Range("A56:B" & 56 + x).Sort ws.Range("B56"), xlDescending ' + počet sloupců

'Clear the worksheet object
Set ws = Nothing
End Sub

ted jsem to predelal tak že zadaný parametr hledá v souboru aaa.xls v rádku 1 (od range a1 smerem do prava) když najde tak do toho sloupcu to pak nasype data. když nenajde přida dalsi sloupec a nasype data.
radek ve kterem to má vyhledávat snad si už doladíte sám

dim to neřeší.
upravil jsem makro pro zadavaní do inputboxu viz priloha
nezapomente si zase upravit cestu pro soubor aaa.xls v makru

Asi takhle nějak?

Nevím či jsem to pochopil správně viz přílohu

co tohle viz přílohu

zkus použít příkaz

Application.DisplayAlerts = False

Nevím či jsem pochpil přesně co potřebuješ, ale jukni na tohle

Super díky, tohle jsem potřeboval.
Díky vám oběma.

jj funguje perfektně, děkuji.

A nešlo by to bez cyklování??

"For Each" nahradit něčím jiným.

Ahoj všem.
Potřeboval bych pomoct s tímto příkazem tak aby fungoval. viz níže


Sub ZakazTlacitko()
Dim i As Integer
Dim cmd As Variant

i = 2
cmd = "UserForm1.CommandButton" & i
cmd.Enabled = False
End Sub

Mám userform s více tlačítkama kde pokaždé potřebuji zakázat jiné.
předem děkuji

JJ teď už to funguje DÍKY. Jenom místo
as String jsem musel dát
as Variant
Ještě jednou díky.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje