< návrat zpět
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
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ěkuji
citovat
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