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

• #11311 Delila_1 veterán mr.nagy #11309

  Új Válasz 2011-09-13 13:31:33 #11311

  Ú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 mr.nagy #11309 üzenetére

  Sub Tizenhat()
  Dim sor As Integer, usor As Integer, oszlop As Integer, sor_1 As Integer
  oszlop = 1: sor_1 = 1
  usor = Range("A65536").End(xlUp).Row
  
  For sor = 10 To usor
  If sor_1 < 5 Then
  Cells(sor_1, oszlop) = Cells(sor, 1)
  sor_1 = sor_1 + 1
  Else
  sor_1 = 1
  oszlop = oszlop + 4
  sor = sor - 1
  End If
  If oszlop = 17 Then
  MsgBox "Ide jön a nyomtatás"
  'ide jön a nyomtatás
  Range("A1:A4,E1:E4,I1:I4,M1:M4").ClearContents
  oszlop = 1
  End If
  Next
  End Sub

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