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

Příspěvky uživatele

No zadávateľovi to síce nerieši jeho úlohu, ale pridám aj ja jedno riešenie.

Načo makro?

Neviem načo mu je to x

@eLCHa
Asi by mu robilo problém aj tvoje riešenie.

x=Cells(radek, 1).EntireRow.Select

Ktovie, čo chce vlastne dosiahnuť.

Skús MATCH.

Range("280:280").Select

Skopíruj si to odtiaľto.

Sub Kopirovat()
Dim wsL1 As Worksheet
Dim wsL2 As Worksheet
Dim Radek As Long
Dim Kom As String
Dim Kom1 As String

Set wsL1 = Worksheets("list1")
Set wsL2 = Worksheets("list2")
Radek = wsL1.Cells(65000, 9).End(xlUp).Row + 1

For i = 49 To 57
Kom = wsL2.Cells(i, 1).Value
Kom1 = Kom1 & ", " & Kom
Next i
Kom1 = Right(Kom1, Len(Kom1) - 2)
wsL1.Cells(Radek, 9).ClearComments
wsL1.Cells(Radek, 9).AddComment
wsL1.Cells(Radek, 9).Comment.Text Text:=Kom1
End Sub

Sub Makro1()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Protect Contents:=False
sh.Cells.Locked = False
sh.UsedRange.Locked = True
sh.UsedRange.SpecialCells(xlCellTypeBlanks).Locked = False
sh.Protect Contents:=True
Next
End Sub

Ešte raz pre excel 2003

Nejako si to už upravíš.

Nie, vôbec to nie je zrozumiteľnejšie.

Skús toto.
Prvé tri stlpce nechaj voľné.
Jeto pomalé. Nepozeral som všetky riešenia. To posledné od palooo je celkom rýchle.

@opičák.
Ale to zadanie: Mám 3 buňky.
Na to treba vymýšľať funkcie a filtre?
Ved kuknem a hneď vidím.

Ja by som nemohol byť jasnovidcom.

@AL
No hej.
Ak v stlpci sú poklesy a prírastky tak áno.
Ale v stlpci mohli byť aj absolútne hodnoty. Napríklad výšky hladiny Dunaja. Potom by to bolo o inom.
Ak niečo riešiš, je dobré vedieť, o čo ide.

Ja by som vložil prvý prázdny riadok a do B2 dal vzorec
=MIN(A2+B1;0)
a potom tak isto ako ty.

Čo si ty predstavuješ pod slovami "filtrovat" a "vyhledávat"

V exceli sú presne špecifikované, a akosi mi to u teba nesedí.

Myslím, že pri troch bunkách nie je veľmi čo filtrovať a ani vyhľadávať.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje