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

• #38480 Ala tag Delila_1 #38479

  Új Válasz 2018-07-06 08:15:45 #38480

  Ú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

  

  Ala

  tag

  válasz Delila_1 #38479 üzenetére

  Nagyon szépen köszönöm!

  Ha 50 db-ra szeretném kibővíteni, akkor így nézne ki a kód?

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

If Range("B4") > 0 And Range("B4") < 50 Then
hova = Application.Match(Range("B4"), Range("B15:B114"), 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

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