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

Příspěvky uživatele

Každopádně jsem myslel něco jako toto, ale nevím kde mám chybu
Dim Range As Range
Set Range = Columns("A:A")

i = 1
For Each i In Range("A:A")
'For counter = 1 To Rng.Rows.Count
If Range.Cells(i) > 0 Then 'Pokud aktuální buňka ve sloupci "A" obsahuje číslo větší než, nula tak skoč do buňky vedle ActiveCell.Offset(0, 1)
Range.Cells(i) = ActiveCell.Offset(0, 1).Range("A1").Select

If ActiveCell > 1 Then 'Pokud tato buňka obsahuje text tak se vrať do bunky vedle a o řádek níže ActiveCell.Offset(1, -1)
ActiveCell.Offset(0, -1).Range("A1").Select
Else
ActiveCell.FormulaR1C1 = "=NOW()" 'Pokud buňka neobsahuje text, vlož NOW(), zkopíruj a vlož jako text
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End If
Else
i = i + 1
End If
Next

Jistě že kilometr dlouhý kód VBA pokud je člověk začátečník, ale čekal jsem tedy že se ozve jiný machr.

Ahoj.
Potřeboval bych poradit.
Pokud je ve sloupci A číslo 1 až 3 tak vlož do sloupce B dnešní datum jako hodnotu a skoč na další řádek ve sloupci A, který obsahuje číslo 1 až 3.
Toto vše opakuj až do posledního ohraničeného řádku ve sloupci A

Pokud již ve sloupci B datum je skoč na další řádek ve sloupci A, který obsahuje číslo 1 až 3.
Toto vše opakuj až do posledního ohraničeného řádku ve sloupci A

Snad je to srozumitelné.

Pokud by bylo potřeba vzorovou tabulku doplním.

Děkuji

Co přesně potřebuji jsem Vám zaslal na email i s přílohou.
Takto se to špatně vysvětluje, tak si přečtěte email a když tak se ozvěte.

Moc děkuji

Děkuji.

A pokud mohu být tak smělý a rozumíte tomu, mohl by jste mi upravit tedy i ten cyklus?

Děkuji

Moc děkuji, už jsem to dal trochu jinak.
Nyní mě však trápí to že potřebuji skloubit dvě podmínky a to:

když je ve vybrané buňce text, jdi do buňky vpravo a vyvolej makro

když ve vybrané buňce nic není tak pokračuj dál (ale ne v hledání, nýbrž v původním makru)

Tento zápis mi to nebere


Cells(65536, 23).End(xlUp).Offset(1, 0).Select 'najdi první prázdný řádek
ActiveCell.Offset(0, -1).Range("A1").Select 'skoč do buňky vedele
' a tady potřebuji výše uvedenou podmínku
Set rng = Range(ActiveCell, ActiveCell.Offset(0, -1))
i = 1
For counter = 1 To rng.Rows.Count
If rng.Cells(i) = IsText Then
Call kdo("20353")
Else
ActiveCell.Offset(1, 0).Range("A1").Select
i = i + 1
End If
Next

Ahoj, potřeboval bych poradit.
Jde o zápis, který provede toto.

Když buňka pod A1 neobsahují text vymaže se filtr ze sloupce E.

Děkuji za ochotu.

Děkuji za rychlou reakci. Pomohlo suprově, moc díky.

Sub Blokace() 'Zablokuje makro v čase od hh:03 do hh:07 a v čase od hh:33 do hh:37

If ((Minute(Now) >= 3) And (Minute(Now) <= 7)) Or ((Minute(Now) >= 33) And (Minute(Now) <= 37)) Then
Exit Sub
End If
Call DenníPlányOHR(False)
End Sub


Děkuji

Ahoj, v excelové tabulce mám tlačítko s přiřazeným makrem.

Potřeboval bych, aby toto tlačítko nešlo aktivovat vždy v časech

od celá hodina do celá a 5 minut
a
od půl do půl a 5 minut

Máte někdo takovou zkušenost?
Děkuji

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

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

Dobrý den.
Při exportu dat z txt, mi makro zahlásí chybu, která se odkazuje na : CommandType = 0

Když však provádím záznam makra ručně, tak se export provede a hlavně povede

Poradíte, kde je chyba?

Děkuji

Funguje skvěle, děkuji.

Ahoj.
V buňce A1 mám datum. Ve sloupci N datum koncový a ve sloupci V je zbývající plocha.

Potřebuji abych zjistil kolik plochy se má lakovat tento týden, příští týden a následující týden.

Pokud zadám:
=SUMIF(N:N;"<A1";V:V) tak mi to excel nebere.

Pokud zadám:
=SUMIF(N:N;"17.7.2016";V:V) tak je to v pořádku.

Kde dělám chybu?
Děkuji

Tak problém vyřešen a opět platí, problém mezi klávesnicí a židlí.

Prošel jsem všechny sloupce a zjistil, že ve sloupcích B a C, tam kde jsem se domníval, že nic není, je zapsána nula, proto se makro odkazovalo jinam než jsem chtěl.

Všem děkuji za snahu i rady a omlouvám se za paniku, spolehlivě funguje kód Devila

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse