Příspěvky uživatele

Ľavý Alt+F11. V otvorenom okne Microsoft Visual Basic for Application kliknite pravým mišítkom na VBAProject(názov dokumentu) - Insert - Module. Dvojklik na ten vytvorený Module1 a v do pravej bielej časti okna nakopírujete jedno alebo druhé makro. Makro potom priradte napr. tlačítku, ktorému nastavte vlastnosť Netlačiť.
Pozor ale, ako vstupná/výstupná bunka je tam nastavená
Cells(1, 5)
teda E1
To si upravte podľa seba.
PS: Príkaz Cells pracuje s indexami riadkov a stĺpcov. Čiže Cells(číslo riadka, číslo stĺpca)
Stačí takto?

Ja by som to skôr asi urobil takto. Je tam minimum formátovaní - 2.
Vypočítava sa to na základe indexu podľa čísla stĺpca.
Ak budete potrebovať pridať ďalšie štvorstĺpce, len pri pripočítajte vo formátovaní rozsah. Alebo si urobte dostatočný predstih.
Čo to tam máte za makro ? Čo to malo robiť, pomôžeme...

EDIT: Máte tam až po riadok 526 v stĺpci H Výberový zoznam. Tak som to prerobil na oblasť $I$5:$AWV$526. Vymenil som prílohu.

Alebo tento druhý variant je tuším jednoduchší.
Pozeral som nejaké miestne a jazykové nastavenia, ale nevidím tam nič o strednom formáte.

Skúste to zatiaľ vyriešiť definovaným názvom, podľa návrhu eLCHa.
Malo by to fungovať na SK,CZ,HU.

Skúste či je to to, čo ste chcel. Nezdá sa mi, že chcete zlučovať rôzne dátumy, a nepovedali ste ani koľko to má stĺpcov, akého formátu, či sa budú sčítavať (tak som to urobil) atď. Je to minimum informácii, navyše bez prílohy...

EDIT: 5.2.2015 09:08
Oprava prílohy
Na tom čo som si vytvoril to funguje tak ako si myslím, že aj má. Ak to Vy máte ako Tabuľku a nie tabuľku, alebo máte pred tým (asi áno) iné dáta atď, atď, tak to fungovať nebude.
Príloha je bezpodmienečne nutná.

Načo tam máte vo vzorci C2, keď je mimo tabuľkových dát a nič v nej nieje?

No a na ktorom presne riadku ? Nie náhodou na Evaluate ?
Akú hodnotu má FC.Formula1 ?

Nejako takto asi...

Váš kód ale neumožňuje prípadnú ďalšiu prácu s číslom palety. Navyše funguje pri dvojkliku hocikde, čo spôsobuje problém pri potrebe prepísať nejaké iné dáta na liste. Skôr by som to upravil na niečo takéto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = Range("Pocitadlo").Address Then
With Range("Pocitadlo")
If .Value = 6 Then .Value = 1 Else .Value = .Value + 1
Application.Goto Range("Pocitadlo").Offset(1)
End With
End If
End Sub
A formát bunky
###?"/6"
Prepínanie zo 6 na 12 by som riešil netlačiteľným zaškrtávacím políčkom.

Private Sub CommandButton50_Click()
With Worksheets("Cold").ListObjects("ColdInputEmails").DataBodyRange
.Columns(2).Resize(Evaluate("=COUNTIF(ColdInputEmails[EmailAddress],""<>""&"""")")).Value = TextBox1.Value
End With
End Sub
Ale prečo musí mať tá Tabuľka 1048566 riadkov ?

No tak to obabrime takto:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim N As Long, V As String, H As Single
If Target.Column <> 1 Then Exit Sub
With Sheets("Zdroj")
On Error Resume Next
N = WorksheetFunction.Match(Target.Value, .Columns(1), 0)
If Err <> 0 Then Target.Offset(0, 1) = "": Exit Sub
V = .Cells(N, 2)
H = .Cells(N, 2).RowHeight
With Target.Offset(0, 1).MergeArea(1)
V = Replace(V, " Adresa:", vbCrLf & "Adresa:")
.Value = V
.Font.Bold = False
.Characters(Start:=1, Length:=17).Font.Bold = True
.Characters(Start:=InStr(1, V, "Adresa:"), Length:=7).Font.Bold = True
.EntireRow.RowHeight = H
End With
End With
End Sub

Alebo CDO (až dole)
http://excelplus.net/jak-odeslat-e-mail-z-excelu/
Pozor na to heslo. Ak bude robiť s Master súborom aj niekto iný, môže si pozrieť heslo do mailu v kóde. Ak to budú iba bezpečné osoby/a tak NoProblem. Aj tak by bolo ale vhodné si na túto činnosť zriadiť novú schránku.

Len zo srandy som dal do kopy pár metód. Aj tie Vaše doterajšie som poupravil. Sú tam rôzne prípady použitia, aj jednoúčelové aj univerzálnejšie. Samozrejme, že sa nájdu aj iné spôsoby.

Ak som to správne pochopil, tak tu sú tiež 2 riešenia.

EDIT: Ešte som zabudol podotknúť, že v prílohe ste mali vypnuté počítanie vzorcov, a vo Výstupe ste mali viac riadkov ako vo Vstupe.

Z brucha na tablete:
Vo VBA pridajte Modul a vložte do neho
Function CHECKIMG(N As Range) As byte
CHECKIMG = (Len(Dir(ThisWorkbook.Path & "\Obrázky\" & N)) > 0) And 1
End Function
V zpšite potom túto UDF funkciu volajte vzorcom
=CHECKIMG(A1)
kde v A1 je názov obrázku napr. "abcd.jpg" a obrázky sú uložené v adresári zošitu v podadresári "Obrázky".

EDIT:
Alebo ešte s ošetrením toho, aby nedalo nič ak do vzorca vstupuje prázdny názov:
Function CHECKIMG(N As Range) As Variant
'Application.Volatile
If N = "" Then CHECKIMG = "": Exit Function
CHECKIMG = (Dir(ThisWorkbook.Path & "\Obrázky\" & N) <> "") And 1
End Function
Apostrof pred Application.Volatile dajte preč, ak chcete aby sa to prepočítavalo pri každej príležitosti.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje