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

Příspěvky uživatele

tak pak jak psal eLCHa, do sešitu si zadejte další pravidlo na chtěné buňky =D2=Dnes(), ale s černou barvou..

asi nejjednodušší způsob - je to nastaveno na žlutou barvu v buňce A1, mění buňku B1... Více je nutno upravit makro.. v zadání nebylo

Sub barva()
If Range("A1").Interior.ColorIndex = 6 Then
Range("B1").Interior.ColorIndex = 3
Else
Range("B1").Interior.Pattern = xlNone
End If
End Sub

Pokud umíš fce svyhledat, tak hromadná korespondence ve wordu bude sranda...

pusť si průvodce hromadnou korespondencí a tam Tě to navede - vytvoříš si šablonu
(Příjmení a Jméno:
Dat. Narození:
Adresa:
PSČ:
Obor:
atd.)

rozložení dle svého uvážení, pak načteš data z excelu z listu data. Pak už jen vytvoříš dopis, tzn proměnné položky dáš na své místo - tzn. Příjmení a Jméno: a za to vložíš slučované pole z excelu

to když uděláš pro všechny položky, tak máš hotovo

na netu určo najdeš spousty návodů jak na to

ještě by to mohlo jít možná takto


Sub test()
Dim i, j, k As Long
Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("data")
i = 2
k = sht.Range("A1", sht.Range("A1").End(xlDown)).Rows.Count - 1
For j = 1 To k
Range("E13").Value = Sheets("Data").Range("A" & i).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
i = i + 1
Next j
End Sub

jj, word umí načítat data z excelu, tak jak je definovaná příloha, tak to stačí.. To bude fungovat

nebyla by snazší varianta VBA - otevřít si druhý soubor, zkopírovat si list a vložit jako nový do otevřeného, tam pak provést porovnání, zbarvit a zase ho překopírovat zpět?

Sice to může být o něco delší, ale zase asi jednodušší na provedení :-)

Já teda nevím, ale přijde mi, že když už se někdo na něco zde zeptá, je z toho celkem patrné, jakou verzi Excelu používá... a myslím, že i v tomto směru jsou generovány odpovědi :-)

Vlaná většina dotazů je definována tak, že chtějí jen řešení... A jestli dostane řešení v podobě indirect nebo nepřímí.odkaz je úplně jedno. Jediné co s tím uživatel udělá je CTRL+C a CTRL+V, zjistí jestli to dělá to co chce a pokud ano, nestuduje proč to tak dělá, je to pro něj prostě dogma a víc k životu nepotřebuje

Sub slozka()
Dim Cestado As String
Dim TestSlozky As String

Cestado = "c:/prace/"

TestSlozky = Dir(Cestado & Range("A1").Value, vbDirectory)
If Len(TestSlozky) > 0 Then
MsgBox "Tato složka již existuje!"
Else
MkDir (Cestado & Range("A1").Value)
End If
End Sub

Pokud jste použil hodnota.na.text

pak by to šlo i

Dim i As String
i = Range("A1").Value
Range("B1").Value = i

jako tak?

Mně se nejvíc ověřilo pomocí definování názvů.. K tomu jsem použil makra, pokud se názvy nějak výrazně měnily, stačí jedním tlačítkem na celou oblast (sloupec).

a do ověření pak dáš jen název oblasti (jednotlivých sloupců)

a do závislého seznamu funcki: neprimy.odkaz(dosadit(...))

to pak funguje naprosto bez problémů, jen při každé aktualizaci oblastí, je třeba aktualizovat názvy..

Já tomu taky moc dle popisu nerozumím, hoď sem přílohu..

Zásadně si myslím, že kopírovat obrázky je celkem problém v rámci maker, protože ty se nevážou na buňku, ale prostě na pozici..

jinak bych volil něco tohoto

<code>
Sub update()
Dim i As Long
Dim j As String

For i = 1 To ThisWorkbook.Worksheets.Count
Windows("Xl0000037.xls").Activate

ThisWorkbook.Sheets(i).Select
j = ActiveSheet.Name
lastCol = ActiveSheet.Range("I3").Column
lastRow = ActiveSheet.Cells(65536, 1).End(xlUp).Row
ActiveSheet.Range("a3:" & _
ActiveSheet.Cells(lastRow, lastCol).Address).Select
Selection.Copy
Windows("update-test.xlsx").Activate 'pokud bude tento sešit také otevřený
Sheets(j).Select

If Range("A3").Value = "" Then
Range("A3").Select
Else
Range("A2").Select
Selection.End(xlDown).Offset(1, 0).Select
End If
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Next i
End Sub
</code>

myslím, že bez maker tohle neuděláš, nepřiměješ žádným vzorcem otevřít excel nový sešit a do něj vkládat hodnoty, to prostě nende..

na makra to zas tak složitě nezní, ale trochu se ztrácím v tom Tvým popisu, hodil by se example..

na to nemusíš dělat makra

funkce pocet2(oblast) zajišťuje to co, potřebuješ

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse