Ú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

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