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

Příspěvky uživatele

V pořádku, už jsem se s tím popral, vše super funguje. Děkuji velice moc.

Přiložený soubor super funguje, akorát tomu nerozumím. Jak to umístím do modulu atd. Děkuji

Hmm, nespustí se, netuším proč. Zde vypsané celé...Asi dělám někde chybu...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "List2!$C$5" Then
Application.EnableEvents = False
Makro1
Application.EnableEvents = True
End If
End Sub

Sub Makro1()

'
' Makro1 Makro
'

'
Sheets("List3").Select
Range("F1").Select
Selection.Copy

Dim PoslRad_2 As Integer
Set L1 = Worksheets("List3")
PoslRad = L1.Cells(65536, 1).End(xlUp).Row

Sheets("List3").Select
Range("A1").Select

For i = 1 To PoslRad
If L1.Cells(i, 1).Value = j Then
j = L1.Cells(i, 1)

End If

Next i

L1.Cells(i, 1) = j


Sheets("List3").Select
Range("A1").Select

PoslRad_2 = L1.Cells(65536, 1).End(xlUp).Row
Cells(PoslRad_2 + 1, 1).Select


Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Sheets("List2").Select
Range("C5").Select



End Sub

Dobrý den, jak spustit nadefinované makro (Makro1), při stisknutí klávesy Enter v dané buňce (C5) na daném listu (List2). Díky.

Dobrý den, dokáže mi s tím někdo pomoci? Moc děkuji za jakoukoliv pomoc, nedokážu to dát sám dohromady.

Dobrý den, moc děkuji za pomoc, ale nedokážu aby mi to fungovalo. Myslím, že bude nejlepší, když uvedeme na konkrétním příkladu. V příloze soubor, kde je konkrétně popsáno jak by to mělo fungovat. Díky za pomoc.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje