Jak vytáhnout data podle zabarvení buněk

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Martin Švach
nováček
Příspěvky: 12
Registrován: březen 16
Pohlaví: Nespecifikováno
Stav:
Offline

Jak vytáhnout data podle zabarvení buněk

Příspěvekod Martin Švach » 15 bře 2016 11:13

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 :)
Přílohy
Sešit1.xlsx
(11.69 KiB) Staženo 21 x

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Jak vytáhnout data podle zabarvení buněk

Příspěvekod cmuch » 15 bře 2016 19:40

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.

Martin Švach
nováček
Příspěvky: 12
Registrován: březen 16
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Jak vytáhnout data podle zabarvení buněk

Příspěvekod Martin Švach » 16 bře 2016 13:19

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.

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Jak vytáhnout data podle zabarvení buněk

Příspěvekod cmuch » 22 bře 2016 12:04

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

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
  • Tisk z excelu mění výšky buněk
    od Moonddur » 28 dub 2023 11:50 » v Kancelářské balíky
    1
    1655
    od atari Zobrazit poslední příspěvek
    28 dub 2023 12:08
  • Data z HDD
    od dadlou » 07 dub 2023 11:30 » v Problémy s hardwarem
    2
    886
    od Sigyam Zobrazit poslední příspěvek
    07 dub 2023 15:24
  • USB-C pouze data ? Příloha(y)
    od ski1961 » 08 říj 2023 10:25 » v Rady s výběrem hw a sestavením PC
    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
  • Mizí data ze všech microSD karet.
    od jan l » 10 led 2024 19:33 » v Problémy s hardwarem
    4
    693
    od jan l Zobrazit poslední příspěvek
    11 led 2024 20:15

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Majestic-12 [Bot] a 3 hosti