Příspěvky uživatele

Rubberduck VBA (VBE add-in)

-statické analýzy (inspections) a vie nájsť aj veľa „mŕtveho“/podozrivého kódu,
-veľmi dobrá navigácia a „Find references“ (to je základ pre mapovanie previazaní),
-refactoring, unit testy, Code Explorer atď.

Tu je link :
https://rubberduck-vba.github.io/Rubberduck/GettingStarted.html?utm_source=chatgpt.com

Áno, je to možné. Bez VBA nie.
Ak chceš jedny globálne dátumy Od/Do, ktoré okamžite prefiltrujú 6 listov naraz, najlepší a technicky čistý spôsob je centrálny filter + VBA.

Na každom z 6 listov:

máš tabuľku (ListObject) alebo aspoň rozsah

stĺpec s dátumom je rovnaký názov / rovnaký index (napr. stĺpec „Dátum“)

Ak nemáš rovnaký stĺpec dátumu → najprv to zjednoť.

Vytvor „riadiaci“ list

Napr. list FILTER:

B2 = Dátum OD

B3 = Dátum DO

Tieto bunky budú jediný zdroj pravdy.

Toto vlož do ThisWorkbook:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "FILTER" Then Exit Sub
If Intersect(Target, Sh.Range("B2:B3")) Is Nothing Then Exit Sub

Application.EnableEvents = False
Call ApplyDateFilterToAllSheets
Application.EnableEvents = True
End Sub

(Module1)
Sub ApplyDateFilterToAllSheets()
Dim ws As Worksheet
Dim dtFrom As Date, dtTo As Date
Dim lo As ListObject
Dim colIndex As Long

dtFrom = Sheets("FILTER").Range("B2").Value
dtTo = Sheets("FILTER").Range("B3").Value

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "FILTER" Then
If ws.ListObjects.Count > 0 Then
Set lo = ws.ListObjects(1) ' ak máš na liste 1 tabuľku

' Nájdi stĺpec "Dátum"
colIndex = lo.ListColumns("Dátum").Index

With lo.Range
.AutoFilter Field:=colIndex, _
Criteria1:=">=" & CLng(dtFrom), _
Operator:=xlAnd, _
Criteria2:="<=" & CLng(dtTo)
End With
End If
End If
Next ws
End Sub

Kurňajs :D ďakujem ti

Zdravím Vás, neviem si trocha rady. Tak sa obraciam na Vás.

Systém mi po stiahnutí generuje takýto zoznam, viac v prílohe. V stĺpci A je názov stojana a ďalší záznam o opravách. Potrebujem s danej tabuľky urobiť kontingenčné. Mám Dátum ukončenia a kus... Potrebujem nejak docieliť aby sa názov stojana v stĺpci A nakopíroval až po posledný voľný riadok nasledujúceho stojana. Následne ďalší názov stojana. Keby to nebolo cez 5000 riadkov tak to ani neriešim.

Ďakujem za každú radu.

Ahojte,

Snažím sa nájsť riešenie na môj problém.
Riešil by som to cez kontingenčnú tabuľku ale v tomto prípade to neprichádza do úvahy.

List prehľad:
V stĺpci A mam ID produktu v B počet objednaného tovaru a C objednávku.

List objednácky:

Stĺpec A ID v B počet objednaného tovaru a C objednávku.
ID sa tu nachádza viac krát podľa toho koľko razí bol objednaný tovar.

Priradenie počtu objednaných kusov k ID nie je problem.

A tu nastáva problém, potreboval by som k danému id do stĺpca C priradiť vsetky vystavené objednávky do jednej bunky.

Je to vobec reálne ?

Zdravím, vedeli by ste mi poradit. V prvom liste stlpec A mam kody produktu. V druhom liste objednavky podla kodu produktu. A. Kod pr, B. objednavka, C. mnozstvo. Potreboval by som zlucit do prveho listu podla kodu objednavky. Problem nastava ak mam viac objednavok na jeden kod produktu. Spocitat mnozstvo do jednej bunky nie je problem ale ako dostat 2.3 objednavky do jednej bunky za kod produktu?

Budem vďačný za kazdu radu.

Príloha

Zdravim, Tabulka je A az K, data sa stale pridavaju. Formatovanie nieje potrebne len copy paste

Zdravím, potreboval by som poradiť.

Mám asi 5 listov v ktorých je vždy rovnaká tabuľka. V stĺpci K je uložená hodnota 1 alebo nula. Potreboval by som do listu dada skopírovať riadky ktoré na konci obsahujú hodnotu 1.

Dík za pomoc.

ďakujem pekne, pomohlo

Zdravím Vás,

Potreboval by som pomôcť. Potrebujem podľa výberu skopírovať riadok do druhého listu. Aby sa po kliknutí na meno skopíroval príslušní riadok do listu odoslať a pôvodný sa zmazal.. ďalšie označené vždy pod seba.

Vopred dík za pomoc

Zdravím potreboval by som poradiť, mám súbor s normami na čas. V jednotlivých listoch sú uložene časy podla počtu dielcov. Potreboval by som vyhľadať pri zadaní :

1. Počet dielcov
2. Hrubka
3. H - hmotnost

Ďakujem za pomoc

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje