Új hozzászólás Aktív témák

• #32227 bsasa1 csendes tag b3n1t0 #32226

  Új Válasz 2016-08-02 11:36:29 #32227

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bsasa1

  csendes tag

  válasz b3n1t0 #32226 üzenetére

  Szia!

  Hát nem vagyok valami nagy vba-s, de egy régebbi makrómat átszabtam a tábládra.
  Sor azonosítók nem látszódnak, feltételeztem, hogy a 2. sorban van adat.
  Nálam működik, de egy hozzáértő biztos szebben oldaná meg.

  Sub makro1()

Dim i As Integer, j As Integer, f As Integer
Dim sor As Integer, hova As Integer

hova = InputBox(prompt:="Hányadik sorba?") - 1
sor = Range(("K2"), Range("K2").End(xlDown)).Rows.Count

For i = 1 To sor
For j = 1 To 8
Range("K" & hova + (i - 1) * 8 + j) = Range("K" & 1 + i) + Cells(2 + i - 1, 36 + j - 1)
Range("L" & 1 + i & ":O" & 1 + i).Copy Destination:=Range("L" & hova + (i - 1) * 8 + j & ":O" & hova + (i - 1) * 8 + j)
For f = 1 To 19
Cells(hova + (i - 1) * 8 + j, 16 + f - 1) = Cells(1 + i, 16 + f - 1) * Cells(2 + i - 1, 44 + j - 1)
Next f
Next j
Next i

End Sub

  a nullás sorok törlése kimaradt véletlen, de előbb ebéd

Új hozzászólás Aktív témák