Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  3 4 5 6 7 8 9 10 11   další » ... 15

Děkuji za rychlou reakci.
Antivir jsem odebral aby se nerozběhl po spuštění PC, PC restartoval.

Tížený výsledek se však nedostavil 5

Děkuji
Radek

Ahoj.

Když už se automaticky spouští úloha v Excelu, chtěl bych, aby se i výsledek automaticky odesílal.

K tomu jsem si našel přiložený VBA kód.

Problém mám v tom, že na noťasu kde mám office 2016 to jede bez problémů, ale pokud to chci hodit na firemní PC kde je office 2007 tak vyhodí chybu, procedura spadne viz obrázek.

Našel jsem zde podobné téma, ale to můj problém nevyřešilo.

Pomůže prosím někdo?

http://imgur.com/K4mZYJz

Děkuji
Radek

Tak jsem to vyzkoušel a funguje druhá varianta 1 .

Děkuji
Radek

Pavlus takže by místo "=IFERROR(VLOOKUP(RC[-18],'Dluhy'!C[-18]:C[9],19,True),"""")"
mělo být "=IFERROR(VLOOKUP(RC[-18],'Dluhy'!C[-18]:C[9],19,False),"""")"?

Děkuji Radek

Ahoj.
Abych dostal do nově aktualizovaného listu "EXPORT" poznámky z předešlé verze "DLUHY", používám pro to funkci VLOOKUP ve spojení s IFERROR.

Ještě předtím, než tuto kombinaci použiji tak si oba listy seřadím vzestupně podle prvního sloupce "A". (všude to doporučují 1 )

Nechápu tedy proč v řádcích 25 a 26 na listě "EXPORT" (plus v mnoha dalších) se mi nakopírují pro oba řádky stejné hodnoty, i když je hledaná hodnota ve sloupci "A" v obou řádcích jiná.

Poradí někdo prosím? (prosím neřešit SELECT a podobně 5 )

Děkuji
Radek

Stalker - děkuji za kód, pracuje jak má.
Moc díky.

Radek

Ou omlouvám se, že ruším na dovolené, to jsem nechtěl. Hold si budu muset počkat 6

Děkuji z rychlou reakci, ale co tu popisuješ je pro mě španělská vesnice.

Asi si budu muset počkat až budeš u PC.

Ale i tak děkuji
Radek

Ahoj.

Mám tu jeden cyklus, který se mi však provede jen u prvního řádku.
Nevím kde mám chybu, poradí někdo?

Sub SkutečnýDluh()

' když nejde "*" ve sloupci "X" tak do sloupce "V"
' nakopíruje hodnotu ze sloupce "P" ze stejného řádku

Set Rng = Range("X3:X2000")
i = 1
For counter = 1 To Rng.Rows.Count
If Rng.Cells(i) = "*" Then
Rng.Cells(i).Offset(0, -2).Formula = "=RC[-6]" 'tady je odkaz, ale potřeboval bych hodnotu
Else
i = i + 1
End If
Next
End Sub


Děkuji
Radek

Dobrý večer.
Ta úvaha je správná, ano odkazuje s to na poslední vlákno konkrétně na tu barvu buňky která je .Interior.Color = 5296274
Už se mi to ale podařilo obejít filtrem.
Ještě jednou moc děkuji a považujte za uzavřeno.

Děkuji
Radek

Ještě jsem se chtěl zeptat, zda by se ta jedná podmínka ("N">"0") dala ještě rozšířit o druhou a to nějak takto

If aHDN(Lrow, 1) > 0 And .Interior.Color = 5296274 Then

Snad je pochopitelné na co se ptám 1

Děkuji
Radek

Ahoj.
Děkuji za objasnění i samotné makro. Pravda je, že první řádek je pro mě vždy řádek třetí.

Jinak jsem stáhl, vyzkoušel a nezměnilo se vůbec nic.

Ale trochu jsem si s tvým makrem pohrál a dostal tížený výsledek. Moje chyba špatně jsem popsal zadání.

Správné zadání mělo být: když buňka ve sloupci "N">"0" tak buňka ve sloupci "X" bude prázdná.

Moc děkuji
Radek

Ahoj.

Jelikož to tu nějak zahálí 1, tak tu mám další jobovku.
Našel jsem si makro viz níže, které mi šlape, jak autor napsal.

Potřeboval bych ho však upravit, viz samotný kód
Sub ChystámeZobrazitN()
Application.ScreenUpdating = False

Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
End With
With ActiveSheet
.Select
ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView
.DisplayPageBreaks = False
Firstrow = .UsedRange.Cells(1).Row
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
For Lrow = Lastrow To Firstrow Step -1
With .Cells(Lrow, "N") ' Sloupec s hledanými podmínkami
If Not IsError(.Value) Then
Select Case .Value
Case Is = "0": .Offset(0, 10).Range("A1").ClearContents 'když je buňka ve sloupci větší než "0" tak vymaž obsah buňky .Offset(0, 10)
End Select
End If
End With
Next Lrow
End With
ActiveWindow.View = ViewMode
With Application
.Calculation = CalcMode
End With

Application.ScreenUpdating = True
End Sub


Děkuji
Radek

anyman napsal/a:

.Add Type:=xlExpression, Formula1:="=RC13<R[1]C"


Dobré ráno.
Upravil jsem jen výše uvedené na.Add Type:=xlExpression, Formula1:="=RC13<RC", protože jinak to porovnávalo M3 s N4, ale jinak šlape skvěle.

Opět skvělá práce.Navíc jste mi ukázali, jak se dá elegantně stanovit rozsah řádku od do.
Moc děkuji
Radek

elninoslov napsal/a:

Stačí potom iba v správcovi pravidiel dvojklikom otvoriť pravidlo, a OK potvrdiť, bez akéhokoľvek zásahu, a po stlačení Použiť, už funguje normálne.


Ani toto nepomohlo, i tak děkuji, že se snažíš pomoc.


Strana:  1 ... « předchozí  3 4 5 6 7 8 9 10 11   další » ... 15

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09