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

MS Excel

Téma: Najdi nejbližší následující datum

Zaslal/a Radek-Klepacek 2.6.2016 10:10

Dobrý den.

Potřeboval bych pomoci s níže uvedeným makrem ve sloupci G na nalezení nejbližšího data k dnešnímu dni a následně pod tento řádek vložit řádek prázdný

Prvně jsem to zkoušel přes toto, ale marně (pokud v tabulce není zítřejší datum tak se makro zastaví)

Cells.Find(Date + 1).Offset(0, 0).Select 'najdi dnešní datum +1 den
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

Následovala varianta tato, ale rovněž marně

Set Rng = Range("G:G")
i = 1
For counter = 1 To Rng.Columns.Count
If Rng.Cells(i) = Cells.Find(Date + 1) Then
Rng.Cells(i).Select
Else
i = i + 3
End If
Next

Děkuji za ochotu

Zaslat odpověď >

---

Strana:  « předchozí  1 2

Raders486(3.6.2016 12:02)#031687

Hurááááááá mám to. No Vy jste jednička.

Tisíceré děkuji.

Jsem velkým dlužníkem.citovat

Raders486(19.7.2016 13:05)#032075

Ahoj všem.

Potřeboval bych opět poradit.
Nyní podobný kód.

Najdi ve sloupci A dnes(dnešní datum), když najdeš smaž celý řádek, když nenajdeš jdi na první neobsazenou buňku ve sloupci A

Poradí někdo?
Děkujicitovat

Raders486(20.7.2016 11:10)#032084

Tak po delším trápení jsem vyřešil. Třeba se bude někomu hodit.

Sub Najdi2(Sh As String)
Dim x As Date
x = 0
For radek = 1 To ActiveSheet.UsedRange.Rows.Count - 1
For radek1 = 1 To ActiveSheet.UsedRange.Rows.Count + 1
x = x
Cells(radek, 1).Select
If Cells(radek, 1) = Date Then
Cells(radek, 1).Select
GoTo konec
End If
Next radek1
If Cells(radek, 1) = Date - 1 Then
ActiveSheet.Rows(radek).EntireRow.Insert
GoTo konec
End If
Next radek
konec:
x = True

Příloha: 32084_desktop.7z (20kB, staženo 21x)

citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse