Žádná příloha tady není.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: spuštění makra vyplněním buňky ve sloupci
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
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
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
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
Snad už mě půjde odeslat příloha.
Pepča
Příloha: 
16996_evidence_ooz.rar (46kB, staženo 55x)
citovat16996_evidence_ooz.rar (46kB, staženo 55x)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
v com je problem?
este by som do toho makra doplnil:
Sub řádky()
Application.EnableEvents = False
...
Application.EnableEvents = True
End Sub
citovat
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
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
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:
nieco z toho :)
priloha:
Příloha: 17132_evidence.zip (91kB, staženo 41x)
citovat17132_evidence.zip (91kB, staženo 41x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články