Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  3 4 5 6 7 8 9 10 11   další » ... 15
VBA outlook 2007 (4.8.2017 13: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

VBA outlook 2007 (4.8.2017 12:40)

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

IFERROR a VLOOKUP (18.7.2017 20:14)

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

Děkuji
Radek

IFERROR a VLOOKUP (18.7.2017 20:12)

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

IFERROR a VLOOKUP (18.7.2017 17:20)

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

Cyklus chyba (17.7.2017 6:17)

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

Radek

Cyklus chyba (16.7.2017 19:42)

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

Cyklus chyba (16.7.2017 14:09)

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

Cyklus chyba (16.7.2017 9:55)

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

Vymaž komentář z buňky (7.7.2017 23:02)

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

Vymaž komentář z buňky (7.7.2017 18:18)

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

Vymaž komentář z buňky (7.7.2017 17:38)

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

Vymaž komentář z buňky (7.7.2017 12:21)

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

Barva buňky za určité podmínky (6.7.2017 6:15)

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

Barva buňky za určité podmínky (5.7.2017 22:13)

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

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.

On-line nástroje