Příspěvky uživatele


< návrat zpět

Strana:  1 2 3   další »

Zdravím,

mám nastavenou podmínku, která má smazat řádky, kdy buňky ve sloupci B obsahují číslo 0.
Makro dá se říci funguje, ale ne 100%.
Makro využívám na velké množství dat a je pravidlem, že mi ždy nějaké 0 zbydou.
Nevíte někdo proč?
Díky moc za odpověďiSub test()
For i = 1 To Cells(65000, 2).End(xlUp).Row
If Cells(i, 2) = 0 Then
Rows(i).Delete
End If
Next i
End Sub

Zdravím,

potřebuji kopírovat určitá data z jiné ze zavřeného sešitu.

Díky

Ješte prosím o radu.
Potřebuji tento výběr nakopírovat do určité buňky na listě 2 např. Range("B2").
Díky

Zdravim,

potrebuji makro, ktere mi zkopiruje pouze pozadovanou hodnotu a ne cely radek jako v tom kodu If Cells(i, 11).Value = "ahoj " Then
Rows(i).Select
Selection.Copy
List47.Activate
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
List19.Activate


Diky

Jak jednoduche 2
Díky moc!

Pardon, každopádně makro nefunguje i když dám vyhledat "ahoj".
Děkuji

Soubor příkládám.
V tomto případě jsou splněny podmínky v řádku 5 a 8, takže tyto řádky se mají kopírovat do prvního volného řádku v listě 2.
Díky moc!

Opet zdravim,

potrebuji makro, ktere mi zkopiruje radky, pokud jsou splneny podminky, ze ve sloupci A a F jsou pozadovane hodnoty. Zkouším tento kód, ale ten mi vždy zkopíruje jen jeden řádek, i když je podmínek splněných více.Sub pokus()
Dim Datum As String
Datum = Range("B1").Value

For i = 1 To Cells(65000, 2).End(xlUp).Row
If Cells(i, 4) = Datum And Len(Cells(i, 1)) > 0 And _
Cells(i, 1) = "aa" And Len(Cells(i, 1)) > 0 Then
Rows(i).Select
Selection.Copy
List2.Activate
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
End If
Next i

End Sub


Díky

Zdravim,

potrebuji smazat radek, pokud ve sloupci F jsou bunky, ktere obsahuji text "ahoj".
diky za pomoc

Zdravím,

potřebuji makro, které mi zkopíruje jen tolik, kolik je v listě1 řádků, např. sloupce A:F jsou vyplněny daty až po 20. řádek.
Data se zkopírují do listu2.
Díky

ještě bych k tomu doplnil, že podmínek pro hodnoty, které se budou kopírovat, bude víc.

Díky

Zdravím,

potřeboval bych pomoci s kopírováním textu s podmínkou, když jakákoli buňka ve sloupci A je rovna např. "Ahoj" potom se mi celý tento řádek zkopíruje do jiného listu.
Díky

Ahoj,
potřeboval bych kopírovat hodnotu z uzamčeného sešitu.
Je to stejný postup, jako kdyby sešit uzamčený nebly, nebo je kód rozdílné?
Díky

Nemohl by jste me do te procedury trochu zasvetit? Snazil jsem se to pochopit, ale moc jsem nepochodil :)

Ano, to je přesně ono :-)
Mockrát děkuji za pomoc


Strana:  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Vynásobit hodnoty kurzem - Power Query

Alfan • 26.4. 7:56

Relativní cesta - zdroje Power Query

Alfan • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

elninoslov • 26.4. 7:54

Vynásobit hodnoty kurzem - Power Query

lubo • 25.4. 19:18

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 15:12

Relativní cesta - zdroje Power Query

Alfan • 25.4. 15:08

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 14:21