2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #24465 slashing senior tag
    Új Válasz #24465
    Ú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

    egy ellenőrző makrón dolgozom, ti hogy csinálnátok?

    szituáció: D4 cellától jobbra azaz egy sorban vannak a fejlécek pl.: akármi 1, akármi 2
    alattuk az adatok...

    Azt akarom ellenőrzini hogy ha bekerültek az adatok a fejlécek alá akkor ha valamilyen oknál fogva foghíjas lesz az adattartományom vagy nem szám kerül bele akkor fejezze be a makró futtatását esetleg írjon ki valamit.

    Az én ötletem az hogy darab2-vel (countA) megszámoltatom a fejléc tartományt majd sima darab-bal az adattartományt és ha a fejléctartomány * ahány sorban van adat = annyival mint amennyi az adattartományom akkor Okésak vagyunk ha nem akkor gáz van.

    Az én kódom így néz ki, látszólag tökéletes, ti mit csinálnátok másképp vagy jó lesz ez így..?!

    Sub ellenorzes()

    fejlec = WorksheetFunction.CountA(Range(Cells(4, 4), Cells(4, ActiveCell.End(xlToRight).Column)))
    adatok = WorksheetFunction.Count(Range(Cells(5, 4), Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)))
    usor = Cells(Rows.Count, "D").End(xlUp).Row - 4 '-4 mert az első négy sort nem akarom számoltatni (D1-től D4-ig)

    If fejlec * usor = adatok Then
    MsgBox "ok"
    Else
    MsgBox "ng"
    End If


    End Sub

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