Izvoz določenih celic excel datoteke v drugo excel datoteko

[mipax]

Prosim za kakšno idejo.

Imam dve excel tabeli. Prva je izdelana v obliki obrazca, želeni podatki so v različnih celicah lista1 (podatki niso v stolpcih). Vsak podatek je vedno samo po enkrat.

Te podatke bi želel, po vnosu v list1 prenesti v drugo excel datoteko, tako, da bi se z vsakim ročnim zagonom ukaza za prenos podatkov, ti zapisali v naslednjo vrstico te druge tabele, v obliki stolpcev podatkov.
To naj bi se izvedlo na podlagi klika na določen gumb (zagona nekega ukaza) v izvornem excel listu.
Upam, da mi je uspelo predstaviti težavo.

[admin]

Pozdravljeni,

Tu ne potrebujete nobene posebne ideje, saj ste algoritem povedali že sami. Potrebno je pač napisati VAB proceduro, ki to izvede. Spodaj vam prilagam primerček, ki zapiše vrednost celice D3 v naslednjo prosto celico lista 1 v datoteki arhiva:

Koda: Izberi vse

Sub zapisi()
  Dim wb As Workbook: Set wb = Workbooks("arhiva.xlsx")
  Dim ws As Worksheet: Set ws = wb.Worksheets("List1")
  Dim r As Long: r = ws.Cells(500000, 1).End(xlUp).Row + 1
  
  ws.Cells(r, 1) = Range("d3")
End Sub