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

• #23475 Delila_1 veterán slashing #23474

  Új Válasz 2014-09-28 08:00:12 #23475

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

  Sub tele_e()
  Dim usor As Long, uoszlop As Integer, oszlop As Integer, maxx As Long, f As Boolean
  
  
  uoszlop = Range("D4").End(xlToRight).Column
  For oszlop = 4 To uoszlop
  usor = Cells(Rows.Count, oszlop).End(xlUp).Row
  If usor > maxx Then maxx = usor
  Next
  
  For oszlop = 4 To uoszlop
  If Application.CountA(Range(Cells(4, oszlop), Cells(maxx, oszlop))) <> maxx - 4 + 1 Then
  f = True
  End If
  Next
  
  If f Then MsgBox "Hiányos" Else MsgBox "Rendben"
  End Sub

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