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

• #9190 Delila_1 veterán Mesike8114 #9186

  Új Válasz 2011-01-23 12:56:14 #9190

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

  Egy makró megoldja képletek nélkül. Nem túl szép, mert a futás idején az AX oszlopba íratok egy-egy értéket, amit a makró végén töröltetek.

  Biztosan meg lehet oldani enélkül is.

  Sub osszefuz()
  Dim sor As Integer, sor_1 As Integer
  Dim sz As String, sz_1 As String
  
  sz = " OR 'azonosító'= "
  For sor = 2 To Int(2001 / 16)
  If sor = 2 Then
  Cells(sor, 50) = 2
  Else
  Cells(sor, 50) = Cells(sor - 1, 50) + 15
  End If
  
  sz_1 = ""
  For sor_1 = Cells(sor, 50) To Cells(sor, 50) + 14
  sz_1 = sz_1 & Cells(sor_1, 12) & sz
  Next
  Cells(sor, 13) = Left(sz_1, Len(sz_1) - 18)
  Next
  
  Columns("AX:AX").Delete
  End Sub

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