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

• #11520 Delila_1 veterán Padam #11518

  Új Válasz 2011-09-30 14:51:47 #11520

  Ú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 Padam #11518 üzenetére

  Szívesen.

• #11500 Delila_1 veterán Padam #11499

  Új Válasz 2011-09-30 11:01:47 #11500

  Ú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 Padam #11499 üzenetére

  Ha egymás alatt vannak az összevont cellák, akkor a kijelölésük után a makrót indítva beírja mindegyikbe a fölötte lévő értéket hivatkozással.

  Érdemes utána kijelölni az oszlopot, és saját magára irányítottan beilleszteni az értéküket.

  Sub Cella_felosztás()
  Selection.UnMerge
  Selection.SpecialCells(xlCellTypeBlanks).Select
  Selection.FormulaR1C1 = "=R[-1]C"
  End Sub

• #11449 m.zmrzlina senior tag Padam #11446

  Új Válasz 2011-09-23 21:16:49 #11449

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Padam #11446 üzenetére

  Csak Select Case szerkezetben kell a páratlan sor helyett a párosból kivonni az 1-et így:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cella As Range
  Dim datumoszlop As Integer
  Dim maradekos As Integer
  maradekos = (Target.Column Mod 2)
  
  Select Case maradekos
  Case Is <> 0
  datumoszlop = Target.Column
  Case Is = 0
  datumoszlop = Target.Column - 1
  End Select
  
  If Not Application.Intersect(Target, Range(Cells(3, datumoszlop), Cells(18, datumoszlop + 1))) Is Nothing Then
  For Each cella In Range(Cells(3, datumoszlop), Cells(18, datumoszlop + 1)).Cells
  If Not cella.Address = Target.Address And Target.Value <> "" Then
  If cella.Value = Target.Value Then
  MsgBox Target.Value & " erre az időpontra nem osztható be!"
  Target.Value = ""
  Exit Sub
  End If
  End If
  Next
  End If
  End Sub

  A napokat írhatom a végtelenségig?

  Igen, bár ennek a megoldásnak van legalább egy komoly hibája, mégpedig hogy ez a sor:
  If Not cella.Address = Target.Address And Target.Value <> "" Then
  meg ez:
  If cella.Value = Target.Value Then
  kiakad, ha nem egyetlen cellán, hanem tartományon szeretnél műveletet végezni. (pl Beszúrás stb..)

• #11400 m.zmrzlina senior tag Padam #11385

  Új Válasz 2011-09-19 16:17:05 #11400

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Padam #11385 üzenetére

  Nem mondom, hogy minden tekintetben végleges megoldás de első körben úgy tűnik működik.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cella As Range
  Dim datumoszlop As Integer
  Dim maradekos As Integer
  maradekos = (Target.Column Mod 2)
  
  Select Case maradekos
  Case Is <> 0
  datumoszlop = Target.Column - 1
  Case Is = 0
  datumoszlop = Target.Column
  End Select
  
  If Not Application.Intersect(Target, Range(Cells(3, datumoszlop), Cells(18, datumoszlop + 1))) Is Nothing Then
  For Each cella In Range(Cells(3, datumoszlop), Cells(18, datumoszlop + 1)).Cells
  If Not cella.Address = Target.Address And Target.Value <> "" Then
  If cella.Value = Target.Value Then
  MsgBox Target.Value & " erre az időpontra nem osztható be!"
  Target.Value = ""
  Exit Sub
  End If
  End If
  Next
  End If
  End Sub

  Én a te munkafüzeted B:C oszlopát érvényesítéssel együtt lemásoltam rendre D:E, F:G ...stb-be a dolgozók tartományt pedig áthelyeztem. Teszteld, ha gond van jelezd!

• #11373 m.zmrzlina senior tag Padam #11372

  Új Válasz 2011-09-18 20:26:27 #11373

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Padam #11372 üzenetére

  Van rá igény, de lehet a 2-es munkalapon is a dolgozók neve.

  Az nem gond, ha másik munkalapon van a név mert az érvényesítésnél úgy láttam nevet adtál a tartománynak és úgy használtad. Használd a #11367-ben lévő változatot az kezeli azt a problémát, hogy csak a B3:C18 tartomány változásainál lép működésbe a makró azon kívül nem ellenőrzi az adatbevitelt.

  Viszont létrehoztam egy makrót és beírtam amit javasoltál, de továbbra is enged két azonost kiválasztani.

  Szerintem az lehet a gond, hogy nem a munkalaphoz rendelted a makrót. Ne azt csináld, hogy Insert>Module és oda másolod a makrót, hanem jobkatt a munkalapfülön ott Kód megjelenítése opció. Itt van leírva néhány hsz-ban, hogy hogyan kell csinálni. (köszi Delila_1 )

  Illetve arra van tipped, hogyan lehetne megcsinálni, hogy, ha a következő napoknál is működjön a dolog?

  A következő napok adatai hol vannak elhelyezve?

• #11367 m.zmrzlina senior tag Padam #11364

  Új Válasz 2011-09-17 17:28:42 #11367

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Padam #11364 üzenetére

  Javított verzió aminek mindegy, hogy a B3:C18 tartományon kívül mit hová szeretnél beírni:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cella As Range
  
  If Not Application.Intersect(Target, Range("B3:C18")) Is Nothing Then
  For Each cella In Range("B3:C18").Cells
  If Not cella.Address = Target.Address And Target.Value <> "" Then
  If cella.Value = Target.Value Then
  MsgBox Target.Value & " erre az időpontra nem osztható be!"
  Target.Value = ""
  Exit Sub
  End If
  End If
  Next
  End If
  End Sub

• #11366 m.zmrzlina senior tag Padam #11364

  Új Válasz 2011-09-17 13:59:02 #11366

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Padam #11364 üzenetére

  Egy kérdés:

  Van igény arra, hogy ezen a munkalapon (bárhová a B3:C18 tartományon kívül) bármilyen okból fel lehessen vinni a dolgozók neveit vagy azokkal egyező karaktersorozatokat? Vagy ezen a munkalapon csak az szerepel ami a mintafájlban is benne van?

• #11365 m.zmrzlina senior tag Padam #11364

  Új Válasz 2011-09-17 12:55:48 #11365

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Padam #11364 üzenetére

  Első körben próbáld a következő makrót a kérdéses munkalaphoz rendelni:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim cella As Range
  
  For Each cella In Range("B3:C18").Cells
  If Not cella.Address = Target.Address And Target.Value <> "" Then
  If cella.Value = Target.Value Then
  MsgBox Target.Value & " erre az időpontra nem osztható be!"
  Target.Value = ""
  Exit Sub
  End If
  End If
  Next
  
  End Sub

• #11364 Padam aktív tag Padam #11261

  Új Válasz 2011-09-17 09:23:28 #11364

  Ú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

  

  Padam

  aktív tag

  válasz Padam #11261 üzenetére

  Erre valaki esetleg? ELőre is köszi!

• #10940 Fire/SOUL/CD félisten Padam #10938

  Új Válasz 2011-07-21 17:29:43 #10940

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Padam #10938 üzenetére

  Az excel-ben 15 számjegy a max (ez limitáció, nem hiba), abban az esetben, ha a cella/cellák szám formátumra vannak formázva. Mivel nem akarsz vele matematikai műveleteket végezni (gondolom csak amolyan azonosítóként funkcionálnak), ezért formázd a cellá(ka)t szövegre.
  Ha most szám és szövegre formázod, akkor normál alakot fognak felvenni, tehát újra be kell(ene) írnod vagy importálnod az adatokat. Ezt elkerülendő, először formázd át az adott oszlopot szöveggé, vegyél fel egy segédoszlopot (szúrj be egy oszlopot a számjegyeket tartalmazó oszlop mellé) és (pl ha A oszlopban vannak ezek a nagy számok) B oszlopba, a B1 cellába írd be ezt a képletet =SZÖVEG(A1;"#") és másold le, ameddig kell.
  Ha megvagy, akkor rajtad áll, hogy törlöd az A oszlopot (így helyére lép a B oszlop) avagy kijelölöd a B oszlopot és "rámásolod" az A oszlopra (majd törlöd a B oszlopot)

  Remélem nem fogalmaztam túl bonyolultan....

• #10939 perfag aktív tag Padam #10938

  Új Válasz 2011-07-21 17:21:23 #10939

  Ú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

  

  perfag

  aktív tag

  válasz Padam #10938 üzenetére

  Hát az úgy van, hogy az Excel számábrázolása 15 számjegyes.
  Itt. Pedig a wikipédiát nagyon nem szeressúk, de most kivételt teszünk a szép képek miatt

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