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

• #38479 Delila_1 veterán Ala #38478

  Új Válasz 2018-07-05 16:05:40 #38479

  Ú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

  

  Delila_1

  veterán

  válasz Ala #38478 üzenetére

  Egy modulba helyezett makró minden indításakor megkeresi a B4 cellában lévő sorszámot a B15:B94 tartományban, és ide másolja a pirossal keretezett fenti részt.

  Sub Masolas()
Dim hova As Integer, oszlop As Integer

If Range("B4") > 0 And Range("B4") < 41 Then
hova = Application.Match(Range("B4"), Range("B15:B94"), 0) + 14
For oszlop = 3 To 15
Cells(hova, oszlop) = Cells(4, oszlop)
Next
For oszlop = 3 To 4
Cells(hova + 1, oszlop) = Cells(5, oszlop)
Next
Else: MsgBox "Hibás sorszám", vbCritical
End If
End Sub

  Kitehetsz a lapra egy gombot, vagy egy alakzatot, és hozzárendeled a makrót.
  A modulba helyezésről a Téma összefoglalóban olvashatsz.

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