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

Příspěvky uživatele

Daj si to transponovať na iný list.
Kopírovať a potom prilepiť špeciálne.
A potom použi normálne filter.

A potom tento postup ešte raz na ďalší list.

No tak s tým počítaj.
Ja som pripočítal 1 a dátum sa zvýšil.

Doplnil som.
Neviem, čo si predstavuješ pod slovom HODNOTA, ja som tam dal DÁTUM.

Ty jsi to asi nepochopil, já tam nechci obsah S z listu1 ale jen část a to od znaku 11 v délce 10 a to pevést na hodnotu tak jak to mám ve vzorci a pokud na listu1 je prázdno, tak se naplní prázdno i do listu2 na S. proto taky po zkopírování z listu1 do listu2 ten sloupec S na listu2 MAŽU.Potřebuju ten vzorec přepsat do makra.....

Blbosť si napísal ty.

Skús tam dať toto.

For i = 2 To Sheets("List1").Cells(1, 1).CurrentRegion.Rows.Count
Sheets(2).Cells(i, 19) = Mid(Sheets(1).Cells(i, 19), 11, 10)
Next
Sheets("List2").Columns("S:S").NumberFormat = "dd/mm/yyyy"

Do listu2 skopíruješ list1 a potom ten list2 zmažeš?
Veď na to netreba makro. Proste nič nerob a budeš to mať, ako si napísal.

No v zadaní makro nebolo spomenuté. Jasné, že makrom je to elegantnejšie a netreba duplikovať ovládací prvok.
Navrhol som to ako alternatívu. Napríklad pre OPEN OFFICE.

@eLCHa

To mi v tejto tropickej noci akosi nenapadlo . Chcel som aby to robilo iba v oblasti DATA1. Ten prienik (data1 E:E) je pekný. Nedávno som ho tu tiež použil.
To OPAKOVAT mi došlo až na samý záver, keď som to chcel vylepšiť. Akosi mi ušlo, že to vlastne nahradzuje pôvodný IF.

ide aj takto, pre prípad, že by tie hlavičky neboli presne v poradí.
=OPAKOVAT(E$3;COUNTIF(data1 E:E;MIN(data1)))

A pokiaľ ide o tie duplicity, autor to asi bude riešiť až nastane ten prípad.

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje