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

Příspěvky uživatele

V příloze je obrázek jak by to mělo vypadat.

Děkuji

Ahoj.
Chtěl bych požádat zda by se někdo nemohl podívat, jak prostřednictvím VBA vložit řádek pod řádky když je ve sloupcích "G"a"I" změna.

Děkuji
Radek

Tak toto mi funguje.

Sub ulož()

Dim IntialName As String
Dim fileSaveName As Variant
InitialName = Sheets("KW34").Range("B2") ' změnit název sešitu a buňku podle které se má ukládat
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitialName, _
fileFilter:="Excel Files (*.xls), *.xls")

If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If

End Sub

Děkuji za úpravu, dělá to přesně to co potřebuji.

A omlouvá se za poskytnuté vstupní údaje.

Potřeboval jsem porovnávat sloupec N s M a O s M.

Děkuji moc
Radek

Ahoj, možná se pletu ale třeba takto ?

ActiveWorkbook.SaveAs FileName:="C:\Documents\" & Range("A1")

Radek

Ok děkuji.

Asi by to šlo obejít jinak.

Pokud se hodnota buňky "N"= hodnotě buňky "M" a nebo hodnota buňky "O" = "M" tak buňka ve sloupci "X" = "Vychystáno".

Zde by snad rozdíl mezi Office 2007 a 2016 nemusel být.

Mrkne na to někdo prosím.

Děkuji
Radek

Děkuji za rychlou reakci a pomoc.
Jinak mohl bych požádat o vysvětlení níže uvedeného?

If RNG Is Nothing Then Set RNG = Bunka Else Set RNG = Union(RNG, Bunka)

A když jsem otestoval tak to havarovalo na
If .Offset(0, -11).DisplayFormat.Interior.Color = 5296274 Or .Offset(, -10).DisplayFormat.Interior.Color = 5296274 Then

Ale problém bude asi v Office, na 2016 jede v poho na Office 2007 havaruje

Děkuji

Ahoj.

Mohl by prosím někdo poradit kde mám chybu.

Mám vybranou oblast ve sloupci "X",kde se má provést to, že pokud buňka ve sloupci "M" a nebo ve sloupci "N" má formát buňky = Interior.Color = 5296274, tak do buňky ve sloupci "X" zapíše hodnotu "Vychystáno"

Sub Vychystano()
Dim rdLast As Long
rdLast = Cells(Rows.Count, 1).End(xlUp).Row
With Range(Cells(3, 24), Cells(rdLast, 24))

If Offset(0, -11).Range("A1").FormatConditions(1).Interior.Color = 5296274 Then
cell.Value = "Vychystáno"
Else
End If
End With
End Sub

Děkuji
Radek

Dobré ráno. Tak jsem v práci a nejede.
Tentokrát spadne na Set OutApp = CreateObject("Outlook.Application")

Pokud byl tedy zájem, mám nachystaný TeamViewer.

Děkuji
Radek

Omlouvám se pokud jsem se zde někoho dotkl, popřípadě pokud někoho obtěžuji.

Jak je to ve firmě s oddělením IT asi nemusím komentovat, když nejsme schopni jít s dobou co se softwaru týká.

Každopádně děkuji za veškerou snahu, zde na fóru.

Jelikož je víkend a office 2007 mám na stolním pc v kanclu, nemohu nyní vyzkoušet zda poslední příspěvky funguji.

V pondělí dám vědět jak jsem pochodil.

Ještě jednou děkuji
Radek

Jo tak. Jsem méně chápavější tak se omlouvám.

Jinak jsem vyměnil dle instrukce a opět to spadne viz obrázek

http://imgur.com/TAZmNY4.

Tak jsem se k tomu dostal až teď a padá to na kroku
Set OutApp = CreateObject("Outlook.Application")

Děkuji
Radek

Ahoj.
Šlo by poslat přílohu?

Ono tady ani tak nejde o Outlook 2016 jak o Outlook 2007.

Jinak v odkaze je obrázek akorát jsem si nevšiml že není podtrzeny krok na kterém to spadlo. Je to první řádek po zadimovani.
Set OppApp = createobject...

Omlouvám se píší z mobilu.

Děkuji

Elninoslov děkuji za reakci, ale tomu už nerozumím vůbec.

Mohl by jsi být konkrétnější co čím nahradit?

Děkuji
Radek

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje