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

Příspěvky uživatele

je to mozne napr. upravenim vzorce-problem vzorce, ktery hazi chybu upravte pomoci funkce KDYZ.
Napr. Když(je.chybhodn(a1)=pravda;"";a1)

poslední pokus...

problem je u tveho kodu ten, ze kdyz vlozis radek, tak mas aktivni list sheet(2) a pak v cyklu znova testujes 'If Cells(i, 1) = "ahoj" Then' - jenze chces testovat bunky na sheetu1. Mel bys tam mit
'If sheets(1).Cells(i, 1) = "ahoj" Then'

Zkusil jsem jeste jednu opravu - kopirovani se aktivuje pri aktivaci listu Nova Tab1

Myslel jsem si, ze je tak natuknu - ale dobre, tady je to cele - nakopiruje pozadovane radky do listu 2.Sub najit()
For i = 1 To List1.Cells(1000000, 1).End(xlUp).Row
If List1.Cells(i, 1) = "ahoj" Then
List1.Select: Rows(i).Copy
List2.Select: Cells(Application.WorksheetFunction.CountA(List2.Range("a:a")) + 1, 1).Select: Selection.PasteSpecial Paste:=xlValue
End If
Next
End Sub

jo, chapu -
je to cyklus, takze bere radek po radku a vam se tedy zkopiruje jen posledni (ale predtim uz byly zkopirovany vsechny predesle) - prave proto je nutne urcit, kam se budou ty radky vkladat...

Tohle makro vyhleda vsechny bunky ve sloupci A, ktere maji hodnotu "ahoj"...

zatim neni znamo, kam se ma radek kopirovat, ale slo by to v podstate nejak takto:Sub najit()
For i = 1 To Cells(1000000, 1).End(xlUp).Row
If Cells(i, 1) = "ahoj" Then
Rows(i).Copy
'tady bude kod pro urceni mista, kam se ma radek nakopirovat
End If
Next
End Sub

Tak tohle byla drina...
Upozornuju, ze jestli to neni podle predstav, tak uz se mi to fakt nebude chtit predelavat :D

Myslim, ze pouziti username by tohle nemelo zpusobit, ale fakt nevim, co by to mohlo byt...

tak to nevim, predtim se ti to tam neukazovalo?
Ukladas to jako soubor s podporou maker? (office 2007)

Myslim, ze kdyz je textbox na formulari sam, tak si vzdy nastavi TaIndex na 0, takze se pri zobrazeni aktivuje - reseni je asi pridat na formular nejaky dalsi prvek (nejlepe asi Label-ten nebude videt (pokud nebude mit hodnotu) a nastavit mu Tabindex 0 a textboxu TabIndex 1)

staci asi tento kod:Private Sub TextBox1_Enter()
TextBox1.Value = ""
End Sub

Zdravim,
tady bych asi pouzil vlastni funkce SVYHLEDAT2, ktera dokaze najit i dalsi vyskyty hledane hodnoty ve sloupci tabulky (viz kod prilozeneho souboru).
Pak uz jen staci po transformaci neduplicitnich 'strojniku' vlozit funkci (viz list 1).
Snad to takto bude vyhovovat.

zdravim,
kdyz vyberete oblast, na ktere chcete uplatnit odstraneni prazdnych bunek a pustite nasledujici praceduru, melo by to fungovat - za předpoklady, ze prazdnych bunek nebude moc...pak to hodi chybu, no ;-) Sub empty_cells()
Dim Retezec As String
Dim RETEZ As String
For Each cell In Selection
If IsEmpty(cell) = True Then
Retezec = Retezec & cell.Address & ","
End If
Next
RETEZ = Left(Retezec, Len(Retezec) - 1)
Range(RETEZ).Select: Selection.Delete Shift:=xlUp
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse