Příspěvky uživatele
< návrat zpět
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
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články