Příspěvky uživatele

Jen připomínka k té "havárii" :-), mě to přijde, že jediný problém je v použití "Option Explicit" v daném modulu.

Řešení je buď tento řádek smazat, nebo pak před první "For i ..." to "i" nadeklarovat:
"Dim i as single"

M@

Pokus v příloze.

M@

Viz. příloha je příklad pomocí podmíněného formátování a funkce najít.
Problém nastane pokud vyhledávaná hodnota je 77 a v řetězci bude 777, pak ho to označí taky, což jsem neošetřoval, protože nevím může-li tento případ nastat a momentálně jsem ani nevymyslel jak :-) - bylo by to na delší bádání :-).

M@

Stačí trochu upravit podmínku...
If InStr(1, ActiveCell.Value, "S.R.O", vbTextCompare) <> 0 then
M@

Můj starý dobrý office 2003 funkci WEEKNUM nemá, tak si to nezkusím, ale co takhle do nuňky B1 vložit vzorec:
="Week "&WEEKNUM(DNES()+(((SLOUPEC()-1)*7)-7))
a pak ho roztáhnout doleva.

Jinak v příloze je řešení pro office 2003 pomocí vlastní funkce ve VBA, přičemž logika vzorce samotného je stejná jako výše zmíněná.

M@

1) ANO - Userform scrollbars / scrollheight / scrollwidth.

2) ANO - např. Userform.left = ActiveWindow.Left

M@

Tak nezbývá než přihodit příklad na funkci svyhledat v kombinaci s nepřímým odkazem.

M@

Ahoj,

Jestli jsem to dobře pochopil, tak makro prohledá určitý sloupec na určitou hodnotu (jméno), v případě že ho najde, tak získá řádek prvního výskytu a smaže následující řádek, vlastní řádek a dva řádky nad, takže oblast 4 řádků.
Jestli Ano, tak viz. příloha :-). Po stisku tlačítka se zobrazí okno pro zadání jména - toto se vyhledá ve sloupci b podle výše zmíněného pravidla smaže.

M@

Sice mi nejde do hlavy proč to tak je, ale funguje to :-).
Díky
M@

Ahoj, při používání db funkcí Dsuma / Dzískat s více kritérii, jsem narazil na problém, kdy excel nerozliší texty SB_Mini / SB_Mini_podskupiny - bere to jako shodný text. Příklad v příloze. Provizorně jsem si ošetřil přidáním číslovky: 01 - SB_Mini / 02 - SB_Mini_podskupiny.
Nedělám něco špatně při použití té funkce? Já jen jestli změna textu je jediné řešení.
Něco podobného tady bylo s funkcí SUMIF.

Díky
M@

asi tuším co myslíš, ale asi to nedám :-) - pokus v příloze.

Nevím jestli to dobře chápu :-).
Když v listu 1 (Odeslaná pošta), zapíšeš něco na nový řádek, tak chceš aby se doplnilo následující pořadové číslo?

Pok do procedure Workbook_Change na listu 1 zadej:

If Cells(Target.Row, 1) = "" Then Cells(Target.Row, 1) = Application.WorksheetFunction.Max(Range("A:A")) + 1

bude vypadat nějak takto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 1) = "" Then Cells(Target.Row, 1) = Application.WorksheetFunction.Max(Range("A:A")) + 1
End Sub
M@

Přílohu nevidím, ale bez použití makra lze použít funkci Seznam - což bez přílohy nevím je-li aplikovatelné :-).

M@

Asi bych použil makro :-)
Public Sub vypln()
Dim rd As Single
rd = 10
For i = 1 To 400 Step 4
Cells(i, 2).Formula = "=A" & rd
Cells(i + 1, 2).Formula = "=A" & rd + 10
Cells(i + 2, 2).Formula = "=A" & rd + 20
Cells(i + 3, 2).Formula = "=A" & rd + 30
rd = rd + 100
Next
End Sub
M@

Sice to není původně z mé hlavy, ale upravil jsem si to a běžně to používám :-)
Sub List_All_The_Files_Within_Path()

Application.ScreenUpdating = False
Dim radek As Integer
Dim No_Of_Files As Integer
Dim kk25 As Integer
Dim File_Path As String

File_Path = "D:\Pokus"
radek = 2
With Application.FileSearch
.NewSearch
.LookIn = File_Path
.Filename = "*.*"
.SearchSubFolders = True
.Execute

No_Of_Files = .FoundFiles.Count

For kk25 = 1 To No_Of_Files
Cells(radek, 2).Value = Dir(.FoundFiles(kk25))
Cells(radek, 3).Value = .FoundFiles(kk25)
Cells(radek, 1).Value = Left(Cells(radek, 3), Len(Cells(radek, 3)) - Len(Cells(radek, 2)))
radek = radek + 1
Next kk25

End With
Cells(1, 1) = "Adresář"
Cells(1, 2) = "Soubor"
Cells(1, 3) = "Celá cesta"
Columns("A:C").EntireColumn.AutoFit
Range("A1:C1").Interior.Color = vbYellow
Cells(2, 1).Select
ActiveWindow.FreezePanes = True

Application.ScreenUpdating = True
End Sub
M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje