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

• #26846 Delila_1 veterán KERO_SAN #26845

  Új Válasz 2015-05-08 12:48:30 #26846

  Ú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 KERO_SAN #26845 üzenetére

  Negyedik paraméterként írj nullát, vagy a HAMIS szöveget add meg. Pár hozzászólással ezelőtt olvashatsz erről a függvényről.

• #25539 Delila_1 veterán KERO_SAN #25538

  Új Válasz 2015-02-20 10:17:20 #25539

  Ú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 KERO_SAN #25538 üzenetére

  Szia!

  Összesen annyi a dolgod, hogy az

  If Target.Column = 18 Then

  sorban a 18-at átírod 19-re a laphoz rendelt makróban.

• #25288 Wyll őstag KERO_SAN #25287

  Új Válasz 2015-02-02 10:02:14 #25288

  Ú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

  

  Wyll

  őstag

  válasz KERO_SAN #25287 üzenetére

  Két kérdés:

  - Nem igazán értem, hogy ez miért jó megoldás... Külön-külön így egyik sem ad jó megoldást. Csak ha az egyik a másik végeredményét használná.
  Esetleg egybeágyaztad őket?
  pl. =JOBB(BAL(A1;5);4)

  - Persze még ez sem jó, mivel balról 5 karakter az nem kevés egy kicsit?
  Nem azért, hogy a saját lovamat dicsérjem, de az én megoldásom bármekkora számra működik, a tiéd viszont csak 4 számjegyűekre, azaz még a saját példádra sem jó

• #25286 Wyll őstag KERO_SAN #25285

  Új Válasz 2015-02-02 09:26:55 #25286

  Ú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

  

  Wyll

  őstag

  válasz KERO_SAN #25285 üzenetére

  A

  =HELYETTE(szöveg;régi_szöveg;új_szöveg;[melyiket])

  függvényt nézd meg

  Ha az eredeti adatokat akarod átírni, akkor kijelölöd őket, Ctrl+F, csere, mit mire, stb.

• #25159 Delila_1 veterán KERO_SAN #25158

  Új Válasz 2015-01-24 08:35:49 #25159

  Ú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 KERO_SAN #25158 üzenetére

  Igen, a makrók az újonnan bevitt sorokat másolják, erre készültek.
  A régi sorokat másold át a szokásos módon.

• #25158 KERO_SAN aktív tag KERO_SAN #25156

  Új Válasz 2015-01-23 12:07:55 #25158

  Ú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

  

  KERO_SAN

  aktív tag

  válasz KERO_SAN #25156 üzenetére

  Javítanék ( ha már szerkeszteni nincs elég idő )

  Új sorok esetén működik a dolog !

• #25157 Delila_1 veterán KERO_SAN #25156

  Új Válasz 2015-01-23 12:05:42 #25157

  Ú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 KERO_SAN #25156 üzenetére

  Mikor bejutottál a VB szerkesztőbe, bal oldalon kattints arra a lapra, ahol a másolandó adataid vannak. Itt is kapsz egy fehér mezőt jobb oldalon, ide kell másolnod az első makrót.

  Modulba csak a második makró kerüljön.

• #25107 Delila_1 veterán KERO_SAN #25105

  Új Válasz 2015-01-20 14:41:44 #25107

  Ú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 KERO_SAN #25105 üzenetére

  Két makró kell hozzá. Az első figyeli a 18. oszlop kitöltését, majd indítja a másikat, ami a másolást végzi el. A laphoz rendeléshez, és a modulba tevéshez sok leírás van itt a fórumon.
  Nem kell előre elkészíteni a 10 lapot, a makrók létrehozzák "1"-től "10"-ig névvel.

  Az alap táblázatot tartalmazó laphoz rendeld:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim LapNev As String
  
  If IsEmpty(Target) Then Exit Sub
  If Target.Column = 18 Then
  LapNev = Cells(Target.Row, 1)
  Masolas Target.Row, LapNev
  End If
  End Sub

  Modulba helyezd:

  Sub Masolas(sor, LapNev)
  Dim a As Object, usor As Long
  Dim ElsoLap As Worksheet
  
  Set ElsoLap = Worksheets(ActiveSheet.Name)
  On Error Resume Next
  Set a = Sheets(LapNev)
  If Err.Number <> 0 Then
  Worksheets.Add.Name = LapNev
  ElsoLap.Rows(1).Copy Sheets(LapNev).Range("A1")
  End If
  On Error GoTo 0
  
  usor = Sheets(LapNev).Range("A" & Rows.Count).End(xlUp).Row + 1
  ElsoLap.Rows(sor).Copy Sheets(LapNev).Range("A" & usor)
  ElsoLap.Move Before:=Sheets(1)
  End Sub

• #25104 Delila_1 veterán KERO_SAN #25097

  Új Válasz 2015-01-20 13:55:10 #25104

  Ú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 KERO_SAN #25097 üzenetére

  Még azt kellene tudni, hogy a 18. oszlop kötelezőn kitöltendő-e?

  Ha igen, akkor ennek a kitöltéséhez lehet rendelni egy eseménykezelő makrót, ami a bevitel után azonnal automatikusan átmásolja a teljes sort a megfelelő lap első üres sorába.

  Ha nem, akkor pl. egy gombot lehet kitenni az első lapra, amit minden sor teljes kitöltése után megnyomsz, vagy ez a gomb egyszerre szortírozza a teljes első táblázatot 10 felé.

• #25090 Delila_1 veterán KERO_SAN #25067

  Új Válasz 2015-01-20 10:17:30 #25090

  Ú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 KERO_SAN #25067 üzenetére

  Kicsit több információ kellene.

  Van 1+10 táblázatod? Hol van (külön lapon, másik füzetben) a 10?
  Attól függően, hogy az első táblázat A oszlopába mekkora számot írsz 1 és 10 között, másolja vagy helyezze át a teljes sort a további 10 valamelyikébe?
  Hány oszlopot kell másolni egy-egy új szám beírásakor? Ha a 10 tábla 10 lapon van, mi ezeknek a lapoknak a neve?

• #25089 KERO_SAN aktív tag KERO_SAN #25067

  Új Válasz 2015-01-20 10:10:05 #25089

  Ú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

  

  KERO_SAN

  aktív tag

  válasz KERO_SAN #25067 üzenetére

  Ötlet erre valaki ?

• #21725 Delila_1 veterán KERO_SAN #21724

  Új Válasz 2014-05-21 17:14:20 #21725

  Ú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 KERO_SAN #21724 üzenetére

  A két lapon 1-1 segédoszlop segítségével nem kell sem szűrni, sem összegezni.

  

  Az első lap C2 cellája: =HÓNAP(A2)

  A második lap B2-jének a képletet látszik a szerkesztőlécen.

  Szerk.: a segédoszlopokat el is rejtheted.

• #21720 Delila_1 veterán KERO_SAN #21719

  Új Válasz 2014-05-21 15:24:16 #21720

  Ú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 KERO_SAN #21719 üzenetére

  Tényleg nem egészen világos, mit szeretnél. Nem tudom, mitől függ, hogy a 2. táblázatban melyik az a bizonyos n-edik sor.

  Szerintem az 1. táblázathoz vegyél fel egy új oszlopot, ami a dátumok hónapját adja a
  =HÓNAP(A2) függvénnyel. Akkor egyszerű a szűrés ebben az új oszlopban.

• #21717 Delila_1 veterán KERO_SAN #21716

  Új Válasz 2014-05-21 14:50:51 #21717

  Ú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 KERO_SAN #21716 üzenetére

  Szűröd az A oszlopot. A táblázaton kívül egy üres cellába, pl. a Z1-be (ha az üres), beírod a függvényt.

  =RÉSZÖSSZEG(9;B:B)

  A másik lapra, ahol a mindenkori részösszeget akarod megjeleníteni, ennyit írsz: =Munka1!Z1
  Természetesen a Munka1 helyett a saját lapod nevét írd be.

• #21715 Delila_1 veterán KERO_SAN #21713

  Új Válasz 2014-05-21 14:20:51 #21715

  Ú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 KERO_SAN #21713 üzenetére

  Az összegzéshez a RÉSZÖSSZEG függvényt alkalmazd. A súgóban megtalálod a leírását.
  A másik táblában erre a cellára hivatkozz.

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