Keresés: - Microsoft Excel topic - Mobilarena Hozzászólások

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

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

#50437 Fferi50 Topikgazda bepken #50436

Új Válasz 2023-02-08 22:51:55 #50437
Ú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

Fferi50

Topikgazda

válasz bepken #50436 üzenetére

Szia!
Ha a szöveggel dolgoznod kell, akkor azt javaslom, külön oszlopba kerüljön a szöveg. Ha ugyanabban a cellába van szám és szöveg is, akkor a sorszámos képlet nem működik megfelelően, hiszen számot szöveggel nem tud összeadni.
A külön oszlopos összesítés például mehet SZUMHA függvénnyel vagy Kimutatással.
Üdv.
#50435 Fferi50 Topikgazda bepken #50434

Új Válasz 2023-02-08 19:42:20 #50435
Ú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

Fferi50

Topikgazda

válasz bepken #50434 üzenetére

Szia!
A B1 cellába írd be az 1 számot.
A B2 cella képlete:
=HA(A2<>0;HA(A2=A1;B1;MAX($B$1:$B1)+1);"")
Ez húzható lefelé.
A szöveget pedig cellaformázással adhatod meg:
Jobb egérgomb - cellaformázás - egyéni - Formátum: "Szöveg" ###
Ez azért jó, mert csak a megjelenítést változtatja, számolni ugyanúgy lehet vele, mert szám marad.
Üdv.
#50434 bepken veterán bepken #50433

Új Válasz 2023-02-08 19:10:31 #50434
Ú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

bepken

veterán

válasz bepken #50433 üzenetére

hmmm közben sikerült úgy "megoldanom", hogy ha nulla az érték szerepel A oszlopban, akkor B oszlop értékét nem növeli....de hátha van ennél elegánsabb megoldás is
ja és akkor már még egy kérdés: a kapott számértéket szeretném hozzáfűzni egy szöveghez (pl.: "szoveg_") és a problémám az, hogy minden sorral újra és újra összefűzi, amikor ugyebár az A oszlopban nincs változás.
szoveg_1
szoveg_1szoveg1
szoveg_1szoveg_1szoveg_1
ezt hogyan tudom elkerülni?
#48946 bteebi veterán bepken #48936

Új Válasz 2022-05-02 08:52:05 #48946
Ú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

bteebi

veterán

válasz bepken #48936 üzenetére

Szia!
Először is szívesen.
Elsőre én is kicsit nehezen értettem meg, pedig amúgy nem annyira bonyolult. Nem teljesen azt adtad meg, amit szerettél volna. Azt mondtad, hogy ha az A oszlop a cél cella (Target) sorában nem üres, akkor írja be a B-be a dátumot. Vagyis ha a cél cella oszlopa nem az A oszlop volt, viszont a sorában az A oszlop nem üres, akkor is frissült a dátum.
Ehelyett az kellett, hogy ha az A oszlopban van a cél cella, akkor (és csak akkor) írjon a B-be, ha az nem üres. Hasonló, de nem ugyanaz.
Használd nyugodtan az ="" (üres) vagy épp <>"" (nem üres) kifekezéseket, illetve ha több feltételed is van, akkor azokat "And"-del vagy "Or"-ral fűzd össze.
#48934 bteebi veterán bepken #48933

Új Válasz 2022-04-30 11:46:26 #48934
Ú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

bteebi

veterán

válasz bepken #48933 üzenetére

Szia!
If Target.Column = 1 And Target.Value <> "" Then
Range("B" & Target.Row).Value = Format(Now, "yyyy.mm.dd")
End If
#22443 bepken veterán bepken #22430

Új Válasz 2014-07-15 07:32:17 #22443
Ú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

bepken

veterán

válasz bepken #22430 üzenetére

bocsi senkinek nincs ötlete erre?
#22363 lappy őstag bepken #22359

Új Válasz 2014-07-09 13:25:24 #22363
Ú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

lappy

őstag

válasz bepken #22359 üzenetére

szerintem ez még jobb
#22311 slashing senior tag bepken #22304

Új Válasz 2014-07-07 17:41:00 #22311
Ú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

válasz bepken #22304 üzenetére

excel 2013-ban van olyan hogy adatok/szűrők
ha ez megvan akkor az adott oszlopnál van olyan hogy számszűrők/két érték között
(#22305) DasBoot
szintén 2013-ban beállítások menüszalag testreszabása a jobb oldali oszlopban(fő lapok) Fejlesztőeszközök elé Pipa...
#22299 Delila_1 veterán bepken #22298

Új Válasz 2014-07-07 14:39:32 #22299
Ú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 bepken #22298 üzenetére

Teljesen korrekt megoldás.
#22055 Delila_1 veterán bepken #22054

Új Válasz 2014-06-18 10:35:45 #22055
Ú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 bepken #22054 üzenetére

Mindkét megoldás eszembe jutott, de olyan egyszerű volt a makrót megírni, hogy emellett maradtam.
#22043 Delila_1 veterán bepken #22042

Új Válasz 2014-06-17 13:53:56 #22043
Ú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 bepken #22042 üzenetére

Szívesen.
#22041 Delila_1 veterán bepken #22040

Új Válasz 2014-06-17 13:06:42 #22041
Ú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 bepken #22040 üzenetére

Akkor a B oszlop legyen zárolva, a lapot védd le.
A makró első sora:
ActiveSheet.Protect Password:="szupertitkosjelszó", UserInterfaceOnly:=True
ez makróból, de csakis onnan engedélyezi a zárolt cellák felülírását.
#22039 Delila_1 veterán bepken #22038

Új Válasz 2014-06-17 12:49:21 #22039
Ú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 bepken #22038 üzenetére

Próbáld ki ezzel:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then Application.EnableEvents = False On Error GoTo Hiba If Target.Value <> "" Then Cells(Target.Row, 2) = Date Cells(Target.Row, 2).NumberFormat = "yy/mm/dd" Else Cells(Target.Row, 2) = "" End If Application.EnableEvents = True End If Exit Sub Hiba: MsgBox "Egyszerre csak egy adatot adj meg, vagy törölj!", vbOKOnly + vbExclamation Application.EnableEvents = True End Sub
#22037 Delila_1 veterán bepken #22036

Új Válasz 2014-06-17 12:30:17 #22037
Ú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 bepken #22036 üzenetére

Jól gondoltad, a makrót inaktiválja az utasítás.
Minden változásra lefut a makró, de csak akkor hajtja végre az utasításokat, ha a feltételben megadott helyen történt a változás. Másképp azonnal az Else ágra (ha van ilyen), vagy az End If sorra ugrik.
#22026 Delila_1 veterán bepken #22025

Új Válasz 2014-06-16 17:44:46 #22026
Ú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 bepken #22025 üzenetére

Igen, az a baja.
Egy kicsit másképp a makró. Ebben már az is benne van, hogy egyszer fusson le. Mikor beírsz a lapra valamit, beíródik a B oszlopba a dátum, erre újból lefut az EnableEvents ideiglenes letiltása nélkül.
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Value <> "" Then Cells(Target.Row, 2) = Date Cells(Target.Row, 2).NumberFormat = "yy/mm/dd" Else Cells(Target.Row, 2) = "" End If Application.EnableEvents = True End Sub
Mivel a C oszlop változtatását akarod figyeltetni, érdemes az egészet egy feltételbe beírni.
if target.column=3 then ... endif