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

• #11279 Delila_1 veterán mr.nagy #11278

  Új Válasz 2011-09-10 15:51:45 #11279

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

  Így gondoltad?

  Sub Tizenhat()
  Dim sor As Integer, usor As Integer, oszlop As Integer, sor_1 As Integer
  oszlop = 3: sor_1 = 2
  usor = Range("B65536").End(xlUp).Row
  
  For sor = 13 To usor
  If sor_1 < 6 Then
  Cells(sor_1, oszlop) = Cells(sor, 2)
  sor_1 = sor_1 + 1
  Else
  sor_1 = 2
  oszlop = oszlop + 4
  sor = sor - 1
  End If
  If oszlop = 19 Then
  MsgBox "Ide jön a nyomtatás"
  'ide jön a nyomtatás
  Range("C2:R5").ClearContents
  oszlop = 3
  End If
  Next
  End Sub

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