• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

Ja tam slovo "Hodnota" nemám

Zase logické hádanky...

Takže vy vždy načítate šesticu (skupinu) riadkov a zapíšete ju za posledný riadok v A? Alebo tie šestice sú iba ako príklad možných dát v A, a v skutočnosti sa prepisuje vždy A od bunky $A$1?

Ak platí prvá možnosť, tak to, čo sa má hľadať v ďalších bunkách šestice (riadky 2-6), sa nachádza vždy v 1. bunke šestice? Alebo je hľadaná hodnota vždy v $A$1 a nezáleží na tom, čo je v 1. bunke šestice? Alebo má každá 1. bunka každej šestice vždy hodnotu z $A$1?

Vy teda neviete v ktorom z riadkov 2-6 sa bude nachádzať >11 znakov? Farba zelená/červená sa má aplikovať iba na riadky, ktoré majú >11 znakov, a to podľa toho či obsahujú hľadanú hodnotu. Ostatné bunky v šestici s <11 znakmi nevyfarbovať. Je tak?

Popis a príklady sú nejednoznačné.

PS: Použitie makra zruší Undo.

Vzorec od Lugr by som upravil na variabilné mesiace a roky ($I$1 je rok, H3...x je číslo mesiaca):
=SUMIFS($C$3:$C$703;$B$3:$B$703;">="&DATE($I$1;H3;1);$B$3:$B$703;"<="&EOMONTH(DATE($I$1;H3;1);0))
=SUMIFS($C$3:$C$703;$B$3:$B$703;">="&DATUM($I$1;H3;1);$B$3:$B$703;"<="&EOMONTH(DATUM($I$1;H3;1);0))

Nie je to príliš zložité?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
Range("C1").Value = WorksheetFunction.Max(Range("C1").Value - Range("B1").Value, 0)
End If
End Sub

Nazdar kluci. Ako ste sa tu mali?
To je podľa zápisu evidentne úryvok z môjho kódu. O čo tam konkrétne šlo? Ktorá je pôvodná téma? Čo obsahuje ten dolovací vzorec v premennej "Vzorec"? Príloha?

Ale má to riešenie, čoby nie. Nemal som na to čas. Každopádne testujem riešenie, kedy sito samé zistí UTF-8 alebo ANSI a podľa toho nastaví Charset na správne načítanie. Lenže dnes mi prestala fungovať identifikácia UTF-8. Zatiaľ v obmedzenom čase skúmam prečo.

Ešte podotázka: To nahradenie toho textu za iný sa dá aplikovať skutočne na celý súbor? Nie je možné, že ten text, ktorý sa bude nahradzovať, bude aj v iných stĺpcoch ako R:S (metaTitle:cs a metaTitle:en)?

Najlepšie by bolo tie súbory CSV v Exceli neotvárať. Obsahujú tie CSV aj diakritiku? Ak nie, tak sa to dá riešiť expresne rýchlo cez textové funkcie priamo z/do CSV. Ak áno, tak to je problém, keďže VBA má problém pri načítaní/ukladaní diakritiky vkódovaní utf-8/ansi. Zdroj je utf-8 a dáta sú ansi. Stiahnite si NotePad++ v ňom otvorte origo Zdroj aj origo dátový a pozrite vpravo dole, čo tam píše. Dá sa to ošetriť cez ADO.Stream ale treba vedieť kódovanie vopred. Má za to, že rôznosť kódovania vznikla Vašou úpravou pri anonymizovaní príloh. Myslím, že to mám z časti už pripravené, ešte počkám čo napíšete, a podľa toho sa ešte raz pokúsim pochopiť či chcete naozaj nahradiť "název1" za "názevXXX", alebo je XXX nejaká premenná a pod.

Inak aký název v prílohe Zdroj?

Ach áno, pri tvorbe riadkov jedinečných hodnôt a ich súčtov som zabudol ešte raz použiť podmienku VADA="Rozbité".

Tá Vaša výsledná tabuľka je zle. Nesprávne názvy aj zoradenie.

Rozhodne nemôžete použiť to na konci Vášho príspevku.
Range() ako zdroj a Range() ako cieľ je v tom istom zošite! Musíte určiť zdrojový zošit pred Range. Idem si pozrieť futbal, možno sa k Vám ešte vrátim.

Také obmedzenie je všade, v každej verzii Excelu v Podmienenom formátovaní. Dá sa to obabrať tak, že urobíte všetko negovane. Napevno dáte bunkám hrubú čiaru v klasickom formáte, a v Podmienenom formáte ju budete rušiť opačnou podmienkou =$C4=$C5 a dáte čiaru "bez čiary". Nevýhoda je skrolovanie "obsadenej" oblasti.

Ak sú dátumy zoradené, a vyzerá to tak, tak potom napr. jednoducho pre oblast A4:K1000:
=$C4<>$C5

Sub Vytvor_import()
ThisWorkbook.Worksheets("List 3").Copy

With ActiveWorkbook
With .Worksheets(1)
R = .Cells(.Rows.Count, "A").End(xlUp).Row
With .UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
.Resize(.Rows.Count - R + 1).Offset(R, 0).EntireRow.Delete Shift:=xlUp
End With
.Buttons(Array("Button 1", "Button 2", "Button 3", "Button 4", "Button 5", "Button 6", "Button 7", "Button 8")).Delete
End With

Application.DisplayAlerts = False
.SaveAs "C:\Users\DELL i7\Desktop\IMP Produkty\import1.xlsx", xlOpenXMLWorkbook
Application.DisplayAlerts = True
.Close False
End With
End Sub

To má predsa milión riešení závislých na presnom rozložení Vašich dát. Musíte priložiť prílohu, a podľa nej sa dá urobiť, viac alebo menej komplikované riešenie. Ale vždy šité na mieru danému rozloženiu.
2x pr.

Pavle, ja Vám fakt čoraz viac nerozumiem
Nie je náhodou to, čo naposledy popisujete, typické pre VLOOKUP/SVYHLEDAT ???

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje