Dobrý den,
Prosím o radu. Potřeboval bych co nejjednodušeji vytáhnout ze seznamu vozů pouze vozy, které nejsou zabarvené.
Příklad seznamu posílám v příloze.
Cíl je, abych měl okamžitě přehled o tom, které vozy nejsou zabarvené a nemusel spoléhat na lidský faktor (mě).
Z příkladu by tyto vozy měly být vypsány:
33 80 534 2 586-8
37 80 533 6 090-5
37 80 533 6 093-9
37 80 533 6 106-9
Děkuji za pomoc :)
Jak vytáhnout data podle zabarvení buněk
-
- nováček
- Příspěvky: 12
- Registrován: březen 16
- Pohlaví:
- Stav:
Offline
Jak vytáhnout data podle zabarvení buněk
- Přílohy
-
- Sešit1.xlsx
- (11.69 KiB) Staženo 21 x
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Jak vytáhnout data podle zabarvení buněk
Dobrý den,
to barevné značení děláte vy?
Kam by se měly ty vozy vypisovat?
Řádky budou proměnné?
Možná by stačil třeba pomocný sloupec vedle každého sloupce
a tam zapisovat nějaký příznak podle kterého pak třeba podmíněným formátováním
změnit barvu podbarvení daného auta na nějakou výraznou barvu.
to barevné značení děláte vy?
Kam by se měly ty vozy vypisovat?
Řádky budou proměnné?
Možná by stačil třeba pomocný sloupec vedle každého sloupce
a tam zapisovat nějaký příznak podle kterého pak třeba podmíněným formátováním
změnit barvu podbarvení daného auta na nějakou výraznou barvu.
-
- nováček
- Příspěvky: 12
- Registrován: březen 16
- Pohlaví:
- Stav:
Offline
Re: Jak vytáhnout data podle zabarvení buněk
Dobrý den,
barevné značení dělám já. Ten seznam vozů vytahuju z jiné databáze a následně páruju stejné vozy k sobě (barevné). Tzn. že se vrátily zpět. Ty neoznačené (bílé) se ještě nevrátily.
Vozy by se mohly vypisovat do nového listu, kde bych měl přehled, které se nevrátily zpět a nemusel je vyhledávat manuálně.
Tou otázkou ohledně řádků si nejsem jistý jak to myslíte. Hodnoty (čísla vozů) se budou měnit. Maximální počet řádků ve kterých jsou obsažené čísla vozů je 50. Více vozů nelze dát do jednoho vlaku.
barevné značení dělám já. Ten seznam vozů vytahuju z jiné databáze a následně páruju stejné vozy k sobě (barevné). Tzn. že se vrátily zpět. Ty neoznačené (bílé) se ještě nevrátily.
Vozy by se mohly vypisovat do nového listu, kde bych měl přehled, které se nevrátily zpět a nemusel je vyhledávat manuálně.
Tou otázkou ohledně řádků si nejsem jistý jak to myslíte. Hodnoty (čísla vozů) se budou měnit. Maximální počet řádků ve kterých jsou obsažené čísla vozů je 50. Více vozů nelze dát do jednoho vlaku.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Jak vytáhnout data podle zabarvení buněk
Edit:
všim sem si, že už to řešíte i jende, kde je to řešeno suprově.
Tak tohle sem dám jen tak
Tak tady je makro co vloží nepodbarvené vagóny do nového listu
všim sem si, že už to řešíte i jende, kde je to řešeno suprově.
Tak tohle sem dám jen tak
Tak tady je makro co vloží nepodbarvené vagóny do nového listu
Kód: Vybrat vše
Sub VypisVagonu()
'
Dim shActive As Worksheet, shNevracene As Worksheet
Dim rngMyRange As Range
Set shActive = ActiveSheet
Sheets.Add After:=Sheets(Sheets.Count)
Set shNevracene = ActiveSheet
shActive.Select
Set rngMyRange = Range(Range("A1"), Range("A1").SpecialCells(xlLastCell))
radek = 1
For Each cell In rngMyRange
If cell.Interior.Pattern = xlNone And cell.Value <> "" Then
shNevracene.Cells(radek, 1) = cell.Value
radek = radek + 1
End If
Next
End Sub
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 1
- 1655
-
od atari
Zobrazit poslední příspěvek
28 dub 2023 12:08
-
- 2
- 886
-
od Sigyam
Zobrazit poslední příspěvek
07 dub 2023 15:24
-
- 4
- 2145
-
od ski1961
Zobrazit poslední příspěvek
08 říj 2023 11:40
-
-
Data science desktop cca 70k Příloha(y)
od Siderit » 24 srp 2023 12:02 » v Rady s výběrem hw a sestavením PC - 10
- 1473
-
od Siderit
Zobrazit poslední příspěvek
25 srp 2023 20:02
-
-
- 4
- 693
-
od jan l
Zobrazit poslední příspěvek
11 led 2024 20:15
Kdo je online
Uživatelé prohlížející si toto fórum: Majestic-12 [Bot] a 3 hosti