Příspěvky uživatele


< návrat zpět

@Palooo dakujem presne toto riesenie som potreboval

@Palooo vdaka ... ja len aby som tomu sapravne pochopil ... to co si poslal bude prechadzat pole od jedneho okraja k druhemu a ak array(x)= mojahodnota then aValue=true , exit for ?

Ahoj,
vedel by niekto pomoct ako vyhladavat v poli hodnot ?

riesim situaciu:
mam pole dnot array(val1,val2,val3,val4)
nacitavam hodnotu z bunky potrebujem overit (true/false)
ci sa hodnota z nacitanej bunky nachadza v poli hodnot

ak je to true robi jedny prikazy ak false robi ine prikazy

dakujem za odpovede uz pouzivam vase scripty :)

chcel by som sa spytat ako spravit makro , ktore vytvori nove listy (worksheet) na zaklade hodnoty v stlpci.

Mam list1 so stlpcami A az P a v stlpci M mam hodnoty (napr: AL, BL, CL, DL, EL) a potrebujem vytvoprit listy s nazvom danej hodnoty a skopirovat vsetky riadky z listu1 do noveho listu ktory ma nazov podla tejto hodnoty.
riadkov v liste 1 moze byt az 60000

v prilohe ukazka co potrebujem spravit (samozrejme list1 sa bude volat inak ale to si uz prepisem a stlpec z ktoreho sa budu cerpat nazvy buducich listov sa vola : manager)

@lubo to je sice fasa ale dost nepouzitelne nakoko je to velmi pracne a hladal som nieco co mi urychli pracu aby som nemusel stlpec po stlpci robit firlte na farbu

@Palooo ... nie nejde mi o prefarbenie alebo zvyraznenie ... potrebujem vymazat riadky kde uz zvyraznenie je v akejkolvek bunke daneho riadku ....

BTW odpoved uz mam z excelforum.com a prikladam ju :

Sub deleterows()
Dim rng As Range, cell As Range
Dim lr As Long, lc As Integer, i As Long, x As Integer, n As Integer
lr = Cells(Rows.Count, 1).End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For i = lr To 2 Step -1
Set rng = Range(Cells(i, 1), Cells(i, lc))
n = Application.WorksheetFunction.CountA(rng)
For Each cell In rng
If cell.Interior.ColorIndex <> xlNone Then
Exit For
Else
x = x + 1
End If
If x = n Then
cell.EntireRow.Delete
End If
Next cell
x = 0
Next i
Application.ScreenUpdating = True
End Sub

Ahoj, ako by sa dali vymazat riadky v ktorych nie su zvyraznene bunky ?
Mam list v ktorom mam stlpce (A:X) s hodnotami a v roznych stlpcoch a riadkoch su zltym zvyraznenim oznacene hodnoty. Potrebujem vymazat riadky tabulky take kde nie je v ziadnom stplci zvyraznenie.

a este pridam drobnu upravu, kedze som zistil ze dany vzorec mi robil problemy pri ciselnych hodnotach :

=CHOOSE(IF(ISNUMBER(A1*1);2;1);IF(LEN(A1)>1;REPT(LEFT(A1;1);LEN(A1))=A1;FALSE());IF(LEN(A1)>1;(REPT(LEFT(A1;1);LEN(A1)))*1=A1;FALSE()))

nasiel som riesenie:

=IF(LEN(A1)>1;REPT(LEFT(A1;1);LEN(A1))=A1)

len oprava :) (ciarky som vymenil za ";" )

Ahoj, snazim sa riesit poziadavku na hladanie buniek v stplci kde sa opakuje 2 a viackrat jeden znak zasebou s tym ze iny znak tam nie je : napr : 00, aaaaa, 444444444
ale neviem ako to spravit kedze cez klasicke filtre to neviem spravit

@AL vdaka za odpoved, uz vsetko robi presne co ma ;) len som sa predtym nestretol s maticovym zapisom vzorcov :)

@AL vies mi povedatr preco mi to vyhadzuje chybu ? vid priloha

AL .. skor som hladal nieco take co by naslo v riadku neprazdnu hodnotu a nakopiroval do uvedenho stlpca

Ahoj, potreboval by som pomoct mam 15 stplcov hodnot (stlpce F-T) s tym ze v jednom riadku napr F2:T2 je hodnota len v jednej bunke z tohoto riadku. Potrebujem aby sa mi do stplca D kopirovali hodnoty z rozsahu stlcpov F:T.
vid priloha


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odskok v makru jinam

PavDD • 13.5. 9:03

odskok v makru jinam

Barth • 13.5. 7:25

číslování

Kalous • 12.5. 20:50

odskok v makru jinam

marjankaj • 12.5. 20:43

číslování

r13 • 12.5. 20:23

číslování

r13 • 12.5. 20:19

číslování

Kalous • 12.5. 19:46