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

MS Excel

Téma: spuštění makra vyplněním buňky ve sloupci

Zaslal/a pepča 14.12.2013 0:27

Ahojky.
Potřeboval bych pomoc jak spustit makro "X" vyplněním buněk ve sloupci G (G7:G2000)ne změnou hodnoty buněk a dále při vyplnění buněk ve sloupci H7:I2000 spustit makro "Y" v mém případě Makro1 na dynamickou výšku řádků. v příloze list "Brno". Používám Excel 97.
Děkuji za pomoc.
Pepča

Zaslat odpověď >

---

ji026441(14.12.2013 15:09)#016799

Žádná příloha tady není.citovat

Palooo(16.12.2013 8:38)#016806

no su dve moznosti:

1. makro X a Y prerobit na funkciu a to sa bude prepocitavat pri zmene tej hodnoty.

2. vytvorit v danom sheete sub typu change:

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

ja osobne by som isiel po prvej moznosticitovat

pepča(2.1.2014 19:41)#016996

Omlouvám se měl jsem problém s PC. A děkuji Petrovi za upozornění.

Snad už mě půjde odeslat příloha.

Pepča

Příloha: 16996_evidence_ooz.rar (46kB, staženo 54x)

citovat

Palooo(7.1.2014 10:59)#017075

pozeral som ten subor ale ved tam to mate uz spravene

v com je problem?

este by som do toho makra doplnil:

Sub řádky()
Application.EnableEvents = False
...
Application.EnableEvents = True
End Sub
citovat

pepča(7.1.2014 20:56)#017094

Ahojky.
Problem je v tom, že makro se spustí i při smazání hodnoty v buňkách.
Díky Pepča.citovat

Palooo(9.1.2014 12:00)#017131

change event nikdy nebude idealny :) (uz len preto ze sa spusta pri kazdej zmene bunky)

tak skuste tu druhu moznost ale neviem presne co ste chcel s tym makrom dokazat ci len udaj z posledneho riadku

Function CucajPosledneho(ByVal aRange As Range, ByVal aRow As Integer) As String
For x = 7 To aRange.Rows.Count
If Cells(x, aRange.Column) = "" Then CucajPosledneho = aValue: Exit For
aValue = Cells(x, aRange.Column + aRow)
Next
End Function

v prilohe je pouzita v bunke C3:citovat

Palooo(9.1.2014 12:01)#017132

tak uz viem preco sa ludia stazuju ze im nejde sem posielat prilohy :)) .... ma to nieco spolocne ked ma v nazve - alebo pri konci je mezera napr. aaa-aa .zip

nieco z toho :)

priloha:

Příloha: 17132_evidence.zip (91kB, staženo 40x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse