< návrat zpět

MS Excel


Téma: Spuštění makra pomocí Enteru rss

Zaslal/a 31.1.2012 15:51

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.

stop Uzamčeno - nelze přidávat nové příspěvky.

#007131
avatar
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "List2!$C$5" Then
Application.EnableEvents = False
Macro1
Application.EnableEvents = True
End If
End Subcitovat
#007133
avatar
Hmm, nespustí se, netuším proč. Zde vypsané celé...Asi dělám někde chybu... 7

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 Subcitovat
#007135
avatar
Všechno je v pořádku. Všechno funguje. Ten kod

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

může být umístěn v Microsoft Visual Basic - VBA Project - List2

Ale nasledujíci
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

v Microsoft Visual Basic - VBA Project - Modules - Module

Příkládám soubor
Příloha: rar7135_book1.rar (11kB, staženo 39x)
citovat
#007136
avatar
Přiložený soubor super funguje, akorát tomu nerozumím. Jak to umístím do modulu atd. Děkujicitovat
#007137
avatar
V pořádku, už jsem se s tím popral, vše super funguje. Děkuji velice moc.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

Aktivní diskuse

Vodorovný teploměr v buňce

GeorgeK • 1.12. 12:26

Vodorovný teploměr v buňce

elninoslov • 1.12. 10:21

Vodorovný teploměr v buňce

Stalker • 1.12. 10:01

Vodorovný teploměr v buňce

GeorgeK • 1.12. 9:15

Spustit makro v určitý čas

Baja • 28.11. 20:11

Spustit makro v určitý čas

elninoslov • 28.11. 17:09

Spustit makro v určitý čas

Baja • 28.11. 12:51