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

• #38485 Delila_1 veterán Ala #38480

  Új Válasz 2018-07-06 14:01:08 #38485

  Ú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 #38480 üzenetére

  Jó helyen változtattál, csak nem <50, hanem <51. Akkor az 50-et is figyelembe veszi.

  Egy picit gyorsítottam a makrón.

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

ActiveSheet.Protect UserInterfaceOnly:=True

If Range("B4") > 0 And Range("B4") < 51 Then
hova = Application.Match(Range("B4"), Range("B15:B94"), 0) + 14
Range("C4:D5").Copy
Range("C" & hova).PasteSpecial xlPasteValues
For oszlop = 5 To 15
Cells(hova, oszlop) = Cells(4, oszlop).Value
Next
Application.CutCopyMode = False
Else: MsgBox "Hibás sorszám", vbCritical
End If
End Sub

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