Příspěvky uživatele

"Zastaví sa" znamená že Outlook čaká na potvrdenie (to je normálne), alebo že vyhodí nejakú chybu (ak áno akú?) ?

Ak je presne daná štruktúra, že sú spájané bloky od seba oddelené pravidlom "prázdny/neprázdny/prázdny" a zároveň majú veľkosť od 3 do 6 riadkov, tak do C3:
=IF(AND(A2="";A3<>"";A4<>"";A5<>"");A3&"#"&A4&"#"&A5&IF(AND(A6<>"";A5<>"");"#"&A6;"")&IF(AND(A7<>"";A6<>"");"#"&A7;"")&IF(AND(A8<>"";A7<>"");"#"&A8;"");"")

=KDYŽ(A(A2="";A3<>"";A4<>"";A5<>"");A3&"#"&A4&"#"&A5&KDYŽ(A(A6<>"";A5<>"");"#"&A6;"")&KDYŽ(A(A7<>"";A6<>"");"#"&A7;"")&KDYŽ(A(A8<>"";A7<>"");"#"&A8;"");"")
a potiahnuť dole.

No, bude záležať na tom, či sa bude tá zdrojová tbl meniť, či bude obsahovať viacero rovnakých riadkov spĺňajúcich tie 3 kritériá, či sa bude meniť počet/mená časopisov, počty nákladov, a počty strán. A samozrejme na rozsahu údajov. Ak totiž bude rozsah údajov napr. v 100-kách riadkov, môže sa na jedinečné hodnoty použiť počítaná tabuľka s maticovými vzorcami. Ak je táto tabuľka cien pevná, nebude treba tie 3 pomocné KT (tá najväčšia určo nie), a pod...
Tie KT som proste použil na získanie jedinečných hodnôt z tej tabuľky cien, pre potreby výberových zoznamov, ktoré sú ďalej riešené v Definovaných názvoch.
PF upozorňuje na nesprávne údaje.

??? Kedy ? Koho ? Koľko ? S kým ???

Ani z textu ani z prílohy žiaľ nerozumiem čo potrebujete.

V tej prílohe máte listy (Bydlení, Bydlení1, Bydlení2, Bydlení3), ktoré tam nechcete mať ?
Chcete mať iba nejaké združené údaje do jedného listu ? No tak ich ukladajte iba do jedného listu, nie do viacerých. Potom môžeme skúmať, čo ďalej potrebujete.
Tie spomínané listy sa štruktúrou nepodobajú, majú rozdielne členenie typu dát aj počtu stĺpcov.

Skúste ešte raz poslať inú prílohu, kde bude len to čo chcete mať (nie to čo máte a už tam nechcete). Pridajte tam aj hlavičky pre dáta, aby bolo jasné, čo je čo. Tam kde chcete mať nejaký výsledok (suma, počet, rozbaľovací zoznam) pridajte komentár, s tým čo tam požadujete.

Skúste, lebo skutočne nerozumiem...

Cez druhú inštanciu Excelu to pôjde isto, len to pár sekúnd trvá. Nedešifroval som, čo v tom makre robíte (neznáme premenné), tak som si podobné vymyslel.

Máte tam desatinné miesta, tak by som sa iba na jednu desatinu nespoliehal, ale pridajte tam x,000000000001.

EDIT: Prípadne ak ich máte takto zoradené:
=COUNTIF($B$2:$B$8;"<"&A14)

Pr.:
Sub VymazBunkyObsahujuce(Co As String, Stlpec As Long)
Dim Riadkov, Data(), i As Long, RNG As Range
With ActiveSheet
Riadkov = .Cells(Rows.Count, Stlpec).End(xlUp).Row
ReDim Data(1 To Riadkov, 1 To 1)
If Riadkov = 1 Then Data(1, 1) = .Cells(1, Stlpec).Value2 Else Data = .Cells(1, Stlpec).Resize(Riadkov).Value2
For i = 1 To Riadkov
If InStr(1, Data(i, 1), Co, vbTextCompare) > 0 Then
If RNG Is Nothing Then Set RNG = .Cells(i, Stlpec) Else Set RNG = Union(RNG, .Cells(i, Stlpec))
End If
Next i
If Not RNG Is Nothing Then RNG.Delete Shift:=xlUp: Set RNG = Nothing
End With
End Sub

Sub Pokus()
Call VymazBunkyObsahujuce("bla", 1)
Call VymazBunkyObsahujuce("s.r.o", 2)
End Sub

Na Googli som rýchlo našiel nejaké súvislé témy
http://www.vbaexpress.com/kb/getarticle.php?kb_id=267
http://www.vbaexpress.com/kb/getarticle.php?kb_id=272
https://stackoverflow.com/questions/40958650/use-vba-to-automatically-add-vbproject-references-to-powerpoint-library-depende

A mnohé ďalšie...

No tak skúste toto, Jednouché to veru nieje.

Pr.

-Tá šablóna musí byť externá (iný súbor na disku) ? Alebo môže byť súčasťou tohto zošitu ?
-Makro sa bude spúšťať z iného zošitu, a v tomto sa budú pridávať iba listy, ale inak bude tento súbor bez makra ? Alebo bude makro v tomto zošite ?
-Môže nastať, že bude treba zapísať viac riadkov ako 31 (toľko má šablóna riadkov v častiach 5,6,7) ? Alebo aj v iných častiach či môže nastať "pretečenie" ? Čo v takom prípade ?
-Časti 1,2,3,4,8,9 sú vždy jednočlenné, alebo môžu byť viacčlenné ?
-Časti 1,2,3,4 vždy začínajú danú skupinu pre jeden list ? Teda sú vždy na prvom riadku skupiny ?
-Časti 8,9, sú vždy na konci skupiny ?
...

Domov - Úpravy - Vymazať - Vymazať formáty

Stiahnuť to ale veru nejde. Veľkosť 0.

s = Replace(s, "_", "", 1, 1)
Prečo by to nefungovalo ?

EDIT: Ešte prikladám aj súbor, kde je ukázaný príklad hromadného načítania aj zápisu, lebo po jednej bunke to robiť = pomalé.

Toto by malo fungovať...
Function ZoznamSuborov(Adresar As String) As Variant
Dim FSO As Object, Subor As Object, Zoznam() As String, Pocet As Long

On Error GoTo KONIEC
Set FSO = CreateObject("Scripting.FileSystemObject").GetFolder(Adresar)
On Error GoTo 0

Pocet = FSO.Files.Count
If Pocet > 0 Then
ReDim Zoznam(1 To Pocet)
Pocet = 0
For Each Subor In FSO.Files
Pocet = Pocet + 1
Zoznam(Pocet) = Subor.Name
Next Subor
ZoznamSuborov = Zoznam
End If

KONIEC:
Set FSO = Nothing: Set Subor = Nothing
End Function

Sub pokus()
Dim Vysledok
Vysledok = ZoznamSuborov("\\Elnino-pc\Download D\")
If IsArray(Vysledok) Then
ActiveSheet.Cells(1, 1).Resize(UBound(Vysledok)).Value2 = Application.Transpose(Vysledok)
Else
MsgBox ("Niesú žiadne súbory")
End If
End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje