Příspěvky uživatele
< návrat zpět
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ť. 
No možno by sa to dalo obísť aj vzorcom, teda ak to takto nebude vadiť
Uživatelské menu
\nMenu
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.
RSS nejnovější články