MS Excel

A čo Vám na tom nefunguje ? Veď keď dáte deklaráciu
Public aktivniBunka As Range
do Modulu, tak premennú aktivniBunka Váš Form krásne vidí. Snáď nedávate deklaráciu do formu ...citovat

1. Máš-li důvod, proč mít proměnnou aktivniBunka v ThisWorkbook, deklarovanou ovšem jako Public, pak se na ni můžeš odkudkoli přece odkazovat jako na
ThisWorkbook.aktivniBunka
I když mi není jasné, proč se to jmenuje aktivniBunka, když Target mohl klidně být blok buněk.

2. Subrutina ListBox1_Click je ale příšerná. Jak je tak populární v tomto fóru, opakovaně a úplně zbytečně pořád dokola počítá to samé. A jak je tady taky tak oblíbené, zbytečně odkazuje na listy pomocí stringu Name, což nutí Basic prohledávat Sheets collection a zdlouhavě porovnávat string "data" se jmény listů. Vždyť přece listy mají svá kódová jména (CodeName), která slouží Basicu k bleskovému, přímému přístupu k listu. Proč nenapsat prostinké

Private Sub ListBox1_Click()
Dim r&, c&
r = aktivniBunka.Row
c = aktivniBunka.Column
With ListX.Cells
.Item(r, c) = ListBox1.Column(1)
.Item(r + 1, c).Select
End With
... apod., atd. ...
End Sub

Tvůj list "data" má kódové jméno List1, List2, nebo tak nějak; já v uvedené proceduře píšu ListX, což musíš nahradit správným kódovým jménem. Navíc ti nikdo nezakázal změnit kódové jméno příslušného listu třeba na Data a u listu s jménem "data_klient" změnit kódové jméno třeba na Klient. Pak

Private Sub ListBox1_Click()
Dim r&, c&
r = aktivniBunka.Row
c = aktivniBunka.Column
With Data.Cells
.Item(r, c) = ListBox1.Column(1)
.Item(r + 1, c).Select
End With
With Klient.Cells
.Item(r, c) = ListBox1.Column(0)
.Item(r + 1, c).Select
End With
Unload Me
End Sub

nebo

Private Sub ListBox1_Click()
Dim rng As Range, r&, c&
r = aktivniBunka.Row
c = aktivniBunka.Column
Set rng = Data.Cells(r, c)
rng = ListBox1.Column(1)
rng(2).Select
Set rng = Klient.Cells(r, c)
rng = ListBox1.Column(0)
rng(2).Select
Unload Me
End Subcitovat