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

• #23472 slashing senior tag

  Új Válasz 2014-09-27 21:29:55 #23472

  Ú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

  

  slashing

  senior tag

  Mit rontok el?

  A következőt kéne ellenőrziznem:

  D4-től egy sorban vannak a fejléc adatok(az adatok megnevezése) bármilyen szöveg/szám akármi lehet... alattuk az adatok. Azt akarom megvizsgálatatni hogy a fejléc hány oszlopos illetve az alattuk lévő adatok hány oszlopban vannak ha nem egyenlő akkor exit sub, illetve ha ugyan egyenlőek az oszlopok de pl. foghíjasan vannak az adatok akkor szintén exit... ez utóbbit úgy gondoltam hogy ha a kijelölt tartományban vannak üres cellák akkor az biztos hibás

  Tehát a lényeg, ahány fejlécoszlop van annyi oszlopban kell legyen adat és azok nem lehetnek néhány helyen üresek, egyik oszlopban sem lehet több adat mint a többiben az adatok nem nyúlhatnak túl a fejlécoszlopokon

  Sub hibaell()
  Dim kijeloles As Range
  Set kijeloles = Selection
  
  Range("D4").Select
  Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(4, ActiveCell.End(xlToRight).Column)).Select
  hanyoszlop = Selection.Columns.Count
  
  Range("D5").Select
  Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)).Select
  hanyoszlop2 = Selection.Columns.Count
  
  ures = Application.WorksheetFunction.CountBlank(kijeloles)
  
  
  If hanyoszlop <> hanyoszlop2 Or ures > 0 Then
  MsgBox ("Hibás")
  Exit Sub
  Else
  MsgBox ("jó")
  
  End If
  
  End Sub

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