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

MS Excel

Téma: Skrytí řádků a sloupců

Zaslal/a Pak 12.1.2015 6:26

Mám toto makro pro automatický zápis datumu, funguje jak má.
Díky eLCHa.

Sub subWriteMissingDates()
With ThisWorkbook.Sheets("List1")
If IsEmpty(.Cells(1)) Then

.Cells(1).Value = Date - 1
Else
Dim dMax As Date

dMax = Application.WorksheetFunction.Max(.Columns(1))
If dMax < (Date - 1) Then
Dim iMissingValuesCount As Integer
iMissingValuesCount = (Date - 1) - dMax
With .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(iMissingValuesCount, 1)

.Value = Application.Evaluate(CLng(dMax) & "+(ROW(1:" & iMissingValuesCount & "))")

.NumberFormat = "d.m.yyyy"

End With '.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(iMissingValuesCount, 1)
End If
End If
End With 'ThisWorkbook.Sheets("List1")
End Sub

A potřeboval bych aby se mi autmaticky zpouštělo po povolení makra.
Taky bych poteboval skrýt prázdné řádky a slouce.

Na netu jsem to našel, ale nejde mi to naroubovat do vzorce. Když už se mi je povede skrýt tak se skryjí všechny i ty vyplněné.

Díky za omc.

Zaslat odpověď >

---

eLCHa(12.1.2015 14:13)#023113

A potřeboval bych aby se mi autmaticky zpouštělo po povolení makra.
Mno - spouštět po povolení znamená co? Povolení maker při otevření sešitu?
Mno snad by mělo stačitPrivate Sub Workbook_Open()
Call subWriteMissingDates
End Subv modulu sešitu.

Na netu jsem to našel, ale nejde mi to naroubovat do vzorce.
Co jste našel? Kam to chcete roubovat? Buďte konkrétnější, vložte přílohu podobnou tomu, kam to chcete naroubovat a on to někdo naroubuje.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse