MS Excel

Téma: Vygenerování emailu VBA (range + offset)

Zaslal/a Padafka 8.10.2024 10:49

Ahoj, snažím se na kliknutí vyrobit email s daty z tabulky. To se mi daří. Pro každý řádek jsem si vytvořil tlačítko a k tomu tlačítku mám připojené makro. Jak mohu udělat, že se mi při stisknutí tlačítka, vypíše hodnota, která je ve stejném řádku, jako je umístění tlačítka? Abych pro každé tlačítko nemusel zapisovat konkrétní buňky.
Myslel jsem na použití Offsetu a ActiveCell, ale to nejsem schopen dát dohromady.
Budu rád za jakoukoliv pomoc.

Příloha: png

56876_tlacitka-v-tabulce.png (188kB, staženo 19x)

Zaslat odpověď >

elninoslov(8.10.2024 14:52)#056878

Ak by ste mal tie tlačítka formulárové, tak by to šlo v pohode cez Application.Caller.
Riadok = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row
alebo rovno .TopLeftCell.Offset().
Ale keď máte ActiveX tlačítka, tak budete musieť prerobiť procedúru na odoslanie na parametrickú.
Sub OdosliMail(Riadok As Long)
Dim xOutMail As Object
...
xMailBody = "Zakázka číslo " & Cells(Riadok, "N") & " - " & Cells(Riadok, "O") & " jepřebalena" ...
...
End Sub
a potom volacie makro pre každé tlačítko s pevne stanovených dopredu zadaným riadkom
Private Sub CommandButton3_Click()
OdosliMail 3
End Sub

Private Sub CommandButton4_Click()
OdosliMail 4
End Sub
...citovat

Padafka(17.10.2024 7:40)#056894

Ahoj, skvělé, super. Předělal jsem to na formulářové tlačítko a dělá to přesně to, co potřebuji. Tisíceré díky.

citovat

Uživatelské menu

Nejste přihlášen(a)

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.