• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Nalezení sloupců dle kritéria

Zaslal/a Jaro 31.7.2013 10:10

Ahoj. Mohli byste mi prosím poradit s následujícím a ne asi složitým makrem ?

Mám označené sloupce slůvkem PRAVDA a NEPRAVDA.
Potřeboval bych najít všechny sloupce PRAVDA a
překopírovat je na list 1, jeden vedle druhého. Šlo by o určitou oblast.
Např. x5 - x20 kde x znamená určitý sloupec.

Moc děkuji za pomoc.

Jméno
Kontrola
Text
	Ukázka

---

Strana:  « předchozí  1 2

eLCHa(31.7.2013 12:02)#014558

Palooo napsal/a:

mozno je to koli tomu ze mam nemecky office

;)

Palooo napsal/a:

... ale zas nadruhu stranu ... to je tak ked programatorom dovolia nedefinovavat premenne .)

Ano - Option Explicit by měl být natvrdo ;)citovat

Opičák(31.7.2013 13:35)#014562

@eLCHa
vůbec to neberu jako kritiku. Ba naopak, někdy čekám právě na Vaše řešení, abych se poučil.
Ale tak trochu jsem to tentokráte čekal, že dostanu přes držku, právě za ".Select". A nemýlil se. Rád sleduji Vaše postupy a snažím se něco přiučit. Čeho jste už dosáhl, je to, že se předně snažím o řešení pomocí fcí Excelu než makry. Takže příště zase, budu čekat (rád). citovat

jaro(31.7.2013 13:39)#014563

Vsem vam moc děkuji. Pokusím to se to nějak sesmolit do mého případu. Zatím se zdá být vše funkční. Učíme se všichni.

Díky moccitovat

jaro(1.8.2013 9:37)#014566

jeste bych měl jeden dotaz. Pro chod makra je potřeba odebrat to NEPRAVDA. Je možné sepsat jeste nejake makro, které by to udělalo ? Aby prošlo celý první řádek a každé nepravda smazlo..?

Nějak mi to nahrazení NEPRAVDA ničím nejde nahrát ani doladit.

Díkycitovat

jaro(1.8.2013 10:53)#014567

Nebo lépe jen skrýt bunky v rozsahu Q1: AZ1, které obsahují NEPRAVDA.
Můj kod, který mám z netu skryje pro mne nepochopitelne vždy jen jednu - první - hodnotu.

Set Rng = Range("Q1:AZ1")
i = 1
For counter = 1 To Rng.Columns.Count
If Rng.Cells(i) = False Then
Rng.Cells(i).Columns.Hidden = False
Else
i = i + 1
End If
Next
citovat

marjankaj(1.8.2013 11:22)#014569

jaro napsal/a:

jeste bych měl jeden dotaz. Pro chod makra je potřeba odebrat to NEPRAVDA. Je možné sepsat jeste nejake makro, které by to udělalo ? Aby prošlo celý první řádek a každé nepravda smazlo..?

Nějak mi to nahrazení NEPRAVDA ničím nejde nahrát ani doladit.

Díky

Rows("1:1").Replace What:="NEPRAVDA", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=Falsecitovat

marjankaj(1.8.2013 11:33)#014570

jaro napsal/a:

Nebo lépe jen skrýt bunky v rozsahu Q1: AZ1, které obsahují NEPRAVDA.
Můj kod, který mám z netu skryje pro mne nepochopitelne vždy jen jednu - první - hodnotu.

No ak si prejdeš ten kód, tak zistíš, ze premenná "i" má vždy hodnotu "1". A premenná "counter" síce cykluje, ale v kóde sa nevyužíva.
Teda logicky ti skryje stlpec "A" toľkokrát koľkokrát je v prvom riadku uvedené "False"citovat

Palooo(1.8.2013 11:39)#014571

skus takto to zapisat:
Sub test()
Set Rng = Range("A1:H1")
For i = Rng.Columns.Count To 1 Step -1
If Rng.Cells(i) = False Then Rng.Cells(i).Columns.Hidden = True
Next
End Subcitovat

jaro(6.8.2013 9:35)#014614

opět díkycitovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse