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

• #28662 Delila_1 veterán szőröscica #28660

  Új Válasz 2015-09-16 19:16:34 #28662

  Ú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 szőröscica #28660 üzenetére

  Nem kell külön beolvastatni a fájlneveket, majd másolni, végül törölni a felesleges sorokat. Az alábbi makró mindegyik műveletet elvégzi.

  Két dolgot kell átírnod benne, az útvonalat, ahonnan a fájlokat behívod, és a kiterjesztést, ha 2007-es verziónál régebbi Excelt használsz.

  Sub Osszemasolas()
  Dim FN As String, utvonal As String, WS As Worksheet
  Dim hova As Long, tabla As Range, CV As Object
  
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  
  Set WS = ActiveWorkbook.ActiveSheet
  utvonal = "F:\Eadat\Tmp\" 'fájlok útvonala, írd át
  FN = Dir(utvonal & "*.xlsx") '2007-es előtti verziónál xls-re írd át
  
  Do While FN <> ""
  hova = Application.WorksheetFunction.CountA(Columns(1)) + 1
  Workbooks.Open utvonal & FN
  Sheets("Data").Select
  
  Range("A1").Select
  Set tabla = Cells.CurrentRegion
  tabla.Offset(1, 0).Resize(tabla.Rows.Count - 1, tabla.Columns.Count).Copy
  
  WS.Cells(hova, "A").PasteSpecial Paste:=xlPasteAll
  
  Windows(FN).Close False 'Zárja a megnyitott fájlt mentés nélkül
  
  For Each CV In Selection
  If CV = "q" Or CV = "r" Then Rows(CV.Row).Delete
  Next
  FN = Dir()
  Loop
  
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
  
  MsgBox "Kész", vbInformation
  End Sub

• #28659 Delila_1 veterán coldfirexx #28629

  Új Válasz 2015-09-16 17:57:23 #28659

  Ú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 coldfirexx #28629 üzenetére

  A lenti makró a lapon lévő diagramok címéből eltünteti a "0%" szövegrészt.

  Sub NullaNyet()
  Dim CV As Integer, szoveg As String
  
  For CV = 1 To ActiveSheet.ChartObjects.Count
  ActiveSheet.ChartObjects(CV).Activate
  szoveg = ActiveChart.ChartTitle.Characters.Text
  szoveg = Application.WorksheetFunction.Substitute(szoveg, "0%", "")
  
  ActiveChart.ChartTitle.Characters.Text = szoveg
  Next
  End Sub

• #28656 Delila_1 veterán Snoop-y #28654

  Új Válasz 2015-09-16 17:35:21 #28656

  Ú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 Snoop-y #28654 üzenetére

  =SZUMHA(B:B;"<>"&"";A:A)

  Nem is olyan ravasz.

• #28625 Delila_1 veterán boomkat88 #28624

  Új Válasz 2015-09-16 07:04:54 #28625

  Ú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 boomkat88 #28624 üzenetére

  Sub Dupla()
  Dim sor As Long, usor As Long
  
  Application.ScreenUpdating = False
  usor = Range("A1").End(xlDown).Row
  usor = usor * 2
  For sor = 2 To usor Step 2
  Cells(sor, "A").Select
  Selection.EntireRow.Insert
  Cells(sor, "A") = Cells(sor - 1, "A")
  Next
  Application.ScreenUpdating = True
  End Sub

• #28621 Delila_1 veterán spe88 #28617

  Új Válasz 2015-09-15 19:53:09 #28621

  Ú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 spe88 #28617 üzenetére

  A cellán állva a Képletek | Képletvizsgálat menüben az elődök-, vagy az utódok mutatása ikonra kattintva nyilak mutatják meg, hogy az aktív cella mikből számol, ill. melyik cellák használják az eredményét.

• #28620 Delila_1 veterán boomkat88 #28619

  Új Válasz 2015-09-15 19:49:06 #28620

  Ú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 boomkat88 #28619 üzenetére

  {=SZUM(1/DARABTELI(tartomány;tartomány))}

  Bemásolod a képletet a kapcsos zárójelek nélkül. A tartomány helyére a saját tartományodat írod be, majd Shif+Ctrl+Enter-rel viszed be, ettől kapja meg a kapcsos zárójeleket. Ez egy tömbfüggvény.

• #28608 Delila_1 veterán elttiL #28607

  Új Válasz 2015-09-15 13:59:23 #28608

  Ú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 elttiL #28607 üzenetére

  Gondolom, a sok lap 1-1 dátumhoz tartozó adatokat tartalmaz. Egész biztos, hogy lehet ennél célszerűbb a füzet felépítése. Érdemes átgondolni.

  Valószínű, hogy az azonos felépítésű lapokból sokat össze lehet vonni.

• #28606 Delila_1 veterán elttiL #28605

  Új Válasz 2015-09-15 13:16:28 #28606

  Ú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 elttiL #28605 üzenetére

  Hát, nem sok köszönet van benne.
  Próbáld meg, hogy az un. volatilis függvények helyett mást alkalmazz. Pl. az INDIREKT kiváltható az INDEX(HOL.VAN) párossal.

  Néhány volatilis függvény itt van felsorolva.

• #28604 Delila_1 veterán elttiL #28603

  Új Válasz 2015-09-15 13:02:21 #28604

  Ú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 elttiL #28603 üzenetére

  1 lapra sajnos nem lehet kikapcsolni, csak a teljes munkafüzetre.

• #28602 Delila_1 veterán elttiL #28600

  Új Válasz 2015-09-15 12:53:44 #28602

  Ú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 elttiL #28600 üzenetére

  Kapcsold ki az automatikus számolást a beállításoknál. Az F9 billentyű hatására számol, nem kell makró az indításához.

• #28601 Delila_1 veterán dudu_14 #28599

  Új Válasz 2015-09-15 12:51:33 #28601

  Ú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 dudu_14 #28599 üzenetére

  A ciklus helyére másold be, amit küldtem.

• #28598 Delila_1 veterán dudu_14 #28596

  Új Válasz 2015-09-15 09:26:21 #28598

  Ú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 dudu_14 #28596 üzenetére

  A lapodhoz rendelt makróban kell megadnod a műveleteket.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$D$6" Then
  'ide másold a saját makródat a Sub és End Sub sorok nélkül
  End If
  End Sub

  A rejtés feloldásához nem szükséges ciklust betenned, gyorsabb és egyszerűbb megoldást alkalmazz:

  If Target.Address = "$D$6" Then _
  Rows("1:" & ActiveSheet.UsedRange.Rows.Count).Hidden = False

• #28597 Delila_1 veterán spe88 #28595

  Új Válasz 2015-09-15 09:16:53 #28597

  Ú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 spe88 #28595 üzenetére

  2007-es verziótól kezdve egyenként kijelölöd egérrel a négyzeteket a szűrőben, nem kell segédgomb.
  Régebbi verzióban a szűrésnél az egyéni kategóriát választva ÉS-sel, vagy VAGY-gyal kapcsolhatod össze a feltételeket, összesen kettőt.

• #28583 Delila_1 veterán karlkani #28582

  Új Válasz 2015-09-12 14:17:56 #28583

  Ú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 karlkani #28582 üzenetére

  Elrejti a megjegyzést a

  Range("I" & Target.Row).Comment.Text Text:=ertek & " Ft/liter"

  sor után beszúrt

  Range("I" & Target.Row).Comment.Visible = False

  sor.
  Tudtommal nincs olyan beállítás, ami eleve automatikus mérettel szúrja be a megjegyzést.

  Automatikus méretre állítás a D és I oszlopban:

  Sub Auto_Meret()
  Dim CV, kom, ter As Range
  Set ter = Range("D:D, I:I")
  
  For Each CV In ter
  Set kom = Range(CV.Address).Comment
  If Not kom Is Nothing Then 'ha van megjegyzés
  Range(CV.Address).Comment.Shape.Select
  Selection.AutoSize = True
  End If
  Next
  End Sub

  Ezt a makrót mudulba kell másolni.

• #28581 Delila_1 veterán karlkani #28580

  Új Válasz 2015-09-12 12:23:42 #28581

  Ú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 karlkani #28580 üzenetére

  Cseppenként adagolod a feladatot.

  Az új makró előállítja a megjegyzést automatikus mérettel, a bevitel sorának az I oszlopában. Teszi ezt akkor, mikor a D, vagy I oszlopba viszel be értéket.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ertek As Double
  If Target.Column = 4 Or Target.Column = 9 Then 'D vagy I oszlop
  Range("I" & Target.Row).Select
  With Range("I" & Target.Row)
  On Error Resume Next
  .AddComment
  .Comment.Visible = True
  .Comment.Shape.Select True
  .Comment.Text Text:=ertek & " Ft/liter"
  .Comment.Shape.Select
  Selection.AutoSize = True
  End With
  If IsNumeric(Range("D" & Target.Row)) And _
  IsNumeric(Range("I" & Target.Row)) Then
  On Error Resume Next
  ertek = Round(Range("D" & Target.Row) / Range("I" & Target.Row), 1)
  Range("I" & Target.Row).Comment.Text Text:=ertek & " Ft/liter"
  
  End If
  Else: Range("I5").Comment.Text Text:="0 Ft/liter"
  End If
  Range(Target.Address).Select
  End Sub

  Már csak azt nem tudom, hogy a D/I érték, vagy az I/D kell a megjegyzésbe. Az

  ertek = Round(Range("D" & Target.Row) / Range("I" & Target.Row), 1)

  sor a D/I-vel számol. Ha ez nem jó, írd át így:

  ertek = Round(Range("I" & Target.Row) / Range("D" & Target.Row), 1)

  Szöveges bevitt adat esetén a megjegyzés szövege 0 Ft/liter lesz.

• #28579 Delila_1 veterán karlkani #28578

  Új Válasz 2015-09-12 11:17:49 #28579

  Ú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 karlkani #28578 üzenetére

  Szivi!

  Kezdd azzal, hogy az I5 cellához rendelsz egy megjegyzést. A keretén bal klikk, ekkor a keret az előző sraffozottról átalakul sűrű pontozottá. Ezen jobb klikk, Megjegyzés formázása. Az Igazítás fülön jelöld be az Automatikus méret négyzetet.

  A makró

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$I$5" Then
  If IsNumeric(Range("I5")) And IsNumeric(Range("D5")) Then
  Range("I5").Comment.Text Text:="Az I5 és D5 cella hányadosa: " _
  & Range("I5") / Range("D5") & ""
  Else: Range("I5").Comment.Text Text:="0"
  End If
  End If
  End Sub

  Szöveg nélkül a
  Range("I5").Comment.Text Text:="Az I5 és D5 cella hányadosa: " _
  & Range("I5") / Range("D5") & ""

  sor
  Range("I5").Comment.Text Text:=Range("I5") / Range("D5") & ""

• #28577 Delila_1 veterán karlkani #28574

  Új Válasz 2015-09-12 10:27:03 #28577

  Ú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 karlkani #28574 üzenetére

  A lapodhoz kell rendelned a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$10" Or Target.Address = "$F$5" Then
  If IsNumeric(Range("B10")) And IsNumeric(Range("F5")) Then
  Range("C3").Comment.Text Text:="A B10 és F5 cella hányadosa: " _
  & Range("B10") / Range("F5") & ""
  Else: Range("C3").Comment.Text Text:="0"
  End If
  End If
  End Sub

  A példában a C3 cella megjegyzésében jelenik meg a B10 és F5 cella hányadosa. Könnyen átírhatod a saját celláidra.

  Szerk.: érdemes a megjegyzést automatikus méretűre állítani.

• #28563 Delila_1 veterán spe88 #28562

  Új Válasz 2015-09-11 11:40:58 #28563

  Ú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 spe88 #28562 üzenetére

  Tehát az E oszlopban legyen kiemelve az a cella, ami az A oszlopban megtalálható.

  Akkor jelöld ki az E oszlopot, a feltételes formázásnál add meg a képletet:

  =DARABTELI(A:A;E1)>0

  és adj hozzá formátumot.

• #28561 Delila_1 veterán the radish #28560

  Új Válasz 2015-09-10 17:13:15 #28561

  Ú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 the radish #28560 üzenetére

  Szívesen (a szerintem semmit).

• #28559 Delila_1 veterán the radish #28558

  Új Válasz 2015-09-10 17:05:43 #28559

  Ú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 the radish #28558 üzenetére

  Sajnálom, csak a füzetek felépítése, és a teljes feladat ismeretében mondhatnék esetleg valamit.

• #28557 Delila_1 veterán the radish #28555

  Új Válasz 2015-09-10 16:53:09 #28557

  Ú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 the radish #28555 üzenetére

  Valószínű, hogy meg lehet oldani, de így vakon kaparászva nem tudok segíteni.

• #28556 Delila_1 veterán spe88 #28547

  Új Válasz 2015-09-10 16:51:54 #28556

  Ú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 spe88 #28547 üzenetére

  A formázás képlete: =DARABTELI($E:$E;A1)>0

• #28554 Delila_1 veterán DeFranco #28553

  Új Válasz 2015-09-10 16:46:14 #28554

  Ú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 DeFranco #28553 üzenetére

  Tényleg nem, bocsi.

  Gem Geza 28544-es kérdésére volt válasz.

• #28552 Delila_1 veterán the radish #28551

  Új Válasz 2015-09-10 16:40:42 #28552

  Ú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 the radish #28551 üzenetére

  Az Else ágba írtam be két sort, és akkor nincs szükség a külön makróra.

  Else
  ig = Application.Match(sorszam, Columns(1), 1)
  Rows(tol & ":" & ig).copy WSM.Range("A2")
  Range("A:E").copy WSM.Sheets("Munka2").Range("A1") '1
  WSI.Activate '2
  ' Masolas 'Itt indul a saját makród ****** megjegyzésbe tettem
  sorszam = sorszam + 1 'növeljük a keresendő értéket
  End If

  Hiába írtam át a makród nevét, még mindig van valami disznóság, másképp a VBE átírta volna a copy-t Copyra.

• #28550 Delila_1 veterán the radish #28548

  Új Válasz 2015-09-10 16:22:48 #28550

  Ú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 the radish #28548 üzenetére

  Most hirtelen azt látom nagy hibának, hogy a makród neve egy VBA-s kulcsszó, copy.
  Nézd meg, hogy pl. az első makró Else ágában, a

  Rows(tol & ":" & ig).copy WSM.Range("A2")

  sorban a Copy utasítást nem is váltotta át nagy kezdőbetűre, mert a copy című makródként értelmezi.

• #28549 Delila_1 veterán DeFranco #28545

  Új Válasz 2015-09-10 16:16:37 #28549

  Ú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 DeFranco #28545 üzenetére

  Zöld: =ÉS(A1>MA()-15;A1<MA())

  Sárga: =ÉS(A1>=MA()-29;A1<=MA()-15)

  Piros: =A1<MA()-29

• #28546 Delila_1 veterán the radish #28543

  Új Válasz 2015-09-10 14:29:35 #28546

  Ú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 the radish #28543 üzenetére

  A saját makród végén állj vissza oda, ahol a makró előtt voltál.

• #28541 Delila_1 veterán the radish #28540

  Új Válasz 2015-09-10 06:49:23 #28541

  Ú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 the radish #28540 üzenetére

  Nézd meg, nincsenek-e véletlenül azonos nevű változók a két makróban. Nem lehetnek, mert akkor a meghívott makró változói felülírják az indító makró változóinak az értékét.

• #28519 Delila_1 veterán BenJoe80 #28517

  Új Válasz 2015-09-09 07:39:32 #28519

  Ú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 BenJoe80 #28517 üzenetére

  feltöltöttem. A Munka2 lapot nézd!

• #28515 Delila_1 veterán BenJoe80 #28512

  Új Válasz 2015-09-08 16:16:35 #28515

  Ú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 BenJoe80 #28512 üzenetére

  Úgy, hogy az N5 képletét az N4-be írod.

  Nézd meg a képletet, összegzi a B4:M4 értékeit. Csak azért írtam az N5-be, mert jobban illett az A5-ben lévő címhez.

• #28510 Delila_1 veterán cekkk #28508

  Új Válasz 2015-09-08 13:58:50 #28510

  Ú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 cekkk #28508 üzenetére

  Elnézést, rossz helyre kattintottam. A válaszom antikomcsinak szólt, a 28505-ös hsz-ére.

• #28507 Delila_1 veterán cekkk #28506

  Új Válasz 2015-09-08 13:31:10 #28507

  Ú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 cekkk #28506 üzenetére

  Itt 3 egymásból következő érvényesítést látsz, amiből ki tudod hámozni a saját kettődet.

• #28503 Delila_1 veterán valyogvisko #28502

  Új Válasz 2015-09-08 11:52:27 #28503

  Ú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 valyogvisko #28502 üzenetére

  Akkor nosza!

• #28501 Delila_1 veterán valyogvisko #28500

  Új Válasz 2015-09-08 11:28:02 #28501

  Ú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 valyogvisko #28500 üzenetére

  Feltételeztem, hogy mindkét lapon van címsorod, a tényleges adatok a 2. sorban kezdődnek.
  Másik feltételezésem, hogy a B lapon az AA oszlopban már nincsenek adataid.

  A lenti makró a B lap AA oszlopába beírja a DARABTELI függvényt, ami megnézi, megtalálható-e az A oszlopában szereplő név az A lapon.
  Ezután egy ciklusban törli az itt is, ott is szereplő nevek sorát, de csak a B lapon.

  A makróban megjegyzést tettem azokhoz a sorokhoz, ahol át kell írnod a lapok nevét, összesen 3 helyen.

  Sub Duplat_Szuntet()
  Dim sor As Long, usor As Long
  Dim WSA As Worksheet, WSB As Worksheet
  
  Set WSA = Sheets("A") '**********
  Set WSB = Sheets("B") '**********
  
  usor = Application.CountA(WSB.Columns(1))
  WSB.Range("AA2:AA" & usor) = "=COUNTIF(A!A:A,A2)" 'Itt az A! módosítandó *********
  
  With WSB
  For sor = usor To 2 Step -1
  If .Cells(sor, "AA") > 0 Then .Rows(sor).Delete Shift:=xlUp
  Next
  .Columns("AA") = ""
  End With
  End Sub

• #28496 Delila_1 veterán valyogvisko #28493

  Új Válasz 2015-09-08 06:41:51 #28496

  Ú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 valyogvisko #28493 üzenetére

  Add meg pontosan, melyik lapnak melyik oszlopában szerepelnek a nevek.
  Az ilyen "mondjuk legyen A" meghatározások miatt többször kell dolgozni annak, a segítségedre siet.

  Az sem mindegy, hogy a 2. lapon csak azt a bizonyos cellát kell törölni, vagy az egész sort.

• #28495 Delila_1 veterán the radish #28491

  Új Válasz 2015-09-08 06:37:15 #28495

  Ú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 the radish #28491 üzenetére

  Semmiképp ne Excelben oldd meg!

  Nézz utána a Word körlevél funkciójának.

• #28490 Delila_1 veterán ritterkrisz #28489

  Új Válasz 2015-09-07 16:08:21 #28490

  Ú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 ritterkrisz #28489 üzenetére

  Igen. Akkor látod, és törölheted is.

• #28488 Delila_1 veterán ritterkrisz #28485

  Új Válasz 2015-09-07 14:40:39 #28488

  Ú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 ritterkrisz #28485 üzenetére

  Autoszűrő?

• #28487 Delila_1 veterán Babcyka88 #28486

  Új Válasz 2015-09-07 14:40:21 #28487

  Ú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 Babcyka88 #28486 üzenetére

  Szívesen.

  Rájöttél volna, először jól írtad, a vesszőket leszámítva.

• #28484 Delila_1 veterán Babcyka88 #28483

  Új Válasz 2015-09-07 12:16:53 #28484

  Ú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 Babcyka88 #28483 üzenetére

  Az ÉV(F3+I3) rész a bűnös, ha az I3-ban csak egy szám – a hozzáadandó évek száma –, nem dátum van.

  Helyesen ÉV(F3)+I3.

• #28482 Delila_1 veterán Babcyka88 #28481

  Új Válasz 2015-09-07 09:37:27 #28482

  Ú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 Babcyka88 #28481 üzenetére

  A vesszők helyére pontosvesszőket írj.

  =DÁTUM(ÉV(A2)+B2;HÓNAP(A2);NAP(A2))

• #28480 Delila_1 veterán BenJoe80 #28475

  Új Válasz 2015-09-07 07:45:23 #28480

  Ú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 BenJoe80 #28475 üzenetére

  Feltettem ide egy fájlt.

• #28479 Delila_1 veterán BenJoe80 #28475

  Új Válasz 2015-09-07 06:48:54 #28479

  Ú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 BenJoe80 #28475 üzenetére

  Nézd meg ezt is.

• #28478 Delila_1 veterán twingos #28473

  Új Válasz 2015-09-07 06:43:01 #28478

  Ú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 twingos #28473 üzenetére

  Formázd meg a D oszlopot előre, legyen # ##0" db" az egyéni kategóriában.
  Rendeld a lapodhoz a lenti makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim talal, WF As WorksheetFunction
  Set WF = WorksheetFunction
  
  Application.EnableEvents = False
  If Target.Column = 1 Then
  If WF.CountIf(Columns(1), Target) > 1 Then
  If WF.CountIf(Columns(5), Target) = 0 Then
  talal = Range("E" & Rows.Count).End(xlUp).Row + 1
  Range("E" & talal) = Target
  Range("D" & talal) = WF.CountIf(Columns(1), Target)
  Else
  talal = Application.Match(Target, Columns(5), 0)
  End If
  Range("D" & talal) = WF.CountIf(Columns(1), Target)
  End If
  End If
  Application.EnableEvents = True
  End Sub

• #28472 Delila_1 veterán twingos #28471

  Új Válasz 2015-09-06 17:12:30 #28472

  Ú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 twingos #28471 üzenetére

  Legyen a B2 képlete =DARABTELI(A$2:A2;A2). Ügyelj a $ jelre. Ezt lemásolod a többi adatod mellé. Ahol 1-nél nagyobb számot látsz, ott már nem először szerepel az adat. Szűrheted is az oszlopot az 1-nél nagyobb értékekre.

  Más oszlopba is írhatod a képletet, ha a B foglalt.

  Adhatsz A2-től az oszlopodra feltételes formázást. A képlet =DARABTELI(A:A;A2)>1

• #28470 Delila_1 veterán twingos #28469

  Új Válasz 2015-09-06 16:25:04 #28470

  Ú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 twingos #28469 üzenetére

  Melyik verziót használod?

• #28466 Delila_1 veterán Delila_1 #28464

  Új Válasz 2015-09-06 14:35:44 #28466

  Ú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 Delila_1 #28464 üzenetére

  Kimaradt egy sor.

  B5 =B4
  C5 =B5+C4, ezt másolod M5-ig.

• #28465 Delila_1 veterán twingos #28461

  Új Válasz 2015-09-06 14:27:15 #28465

  Ú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 twingos #28461 üzenetére

  A napokban sok szó esett a speciális-, lánykori nevén irányított szűrésről (csak az egyedi rekordok megjelenítése).
  Ezzel a funkcióval kigyűjtőd az egyedi értékeket az E oszlopba. A D2 cella képlete =DARABTELI(A:A;E2)

• #28464 Delila_1 veterán BenJoe80 #28458

  Új Válasz 2015-09-06 14:21:42 #28464

  Ú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 BenJoe80 #28458 üzenetére

  B1:M1 hónapok, N1 Éves, ez a címsor
  A2 Bevétel, B2:M2 havi bevételek összegei, N2 =szum(B2:M2)
  A3 Kiadás, B3:M3 havi kiadások összegei, N3 =szum(B3:M3)
  A4 Egyenleg, B4:M4 =B2-B3, N4 =szum(B4:M4)

• #28448 Delila_1 veterán poffsoft #28444

  Új Válasz 2015-09-04 09:56:06 #28448

  Ú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 poffsoft #28444 üzenetére

  Mert először online javítottam, ám csak letöltve sikerült az összesítésekben a formátumot rendesen beállítani – [ó]:pp.

• #28438 Delila_1 veterán hengelhof #28434

  Új Válasz 2015-09-03 16:26:32 #28438

  Ú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 hengelhof #28434 üzenetére

  Feltöltöttem a módosított fájlodat.

• #28435 Delila_1 veterán hengelhof #28434

  Új Válasz 2015-09-03 15:33:36 #28435

  Ú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 hengelhof #28434 üzenetére

  Mi az -nek váltasz át általános formátumra?
  Az I3 képlete legyen egyszerűen =H3-G3, a cellaformátum ó:pp, az összegzésnél (L3 cella) pedig [ó]:pp, amit a SZUMHA függvénnyel számolhatsz ki.

  =SUMIF(D:D,K3,I:I)

  A csatolmányban nem tudom a cellaformátumot átírni.

• #28421 Delila_1 veterán bsh #28420

  Új Válasz 2015-09-03 09:36:45 #28421

  Ú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 bsh #28420 üzenetére

  Set ExcelWS = ExcelWB.ActiveSheet

  Ehelyett konkrét nevet kellene adnod. Az ExcelWB-nek is érdemes előtte nevet adnod.

  workbooks.add.name="Akármi.xlsx"
  set ExcelWB=workbooks("Akármi.xlsx")
  set ExcelWS = ExcelWB.sheets("Munka1")

• #28419 Delila_1 veterán cekkk #28418

  Új Válasz 2015-09-03 09:15:16 #28419

  Ú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 cekkk #28418 üzenetére

  A tizedes érték volt a hiba?

• #28417 Delila_1 veterán cekkk #28412

  Új Válasz 2015-09-03 09:03:35 #28417

  Ú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 cekkk #28412 üzenetére

  =HAHIBA(HA(KEREKÍTÉS(B1;0)=KEREKÍTÉS(FKERES(A1;D:E;2;0);0);"Rendben";"Nem azonosak a számok");"Nincs "&A1& " a D oszlopban")

• #28416 Delila_1 veterán tzimash #28415

  Új Válasz 2015-09-03 09:03:00 #28416

  Ú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 tzimash #28415 üzenetére

  A vicc, hogy egyforma a sorunk.

• #28414 Delila_1 veterán cekkk #28412

  Új Válasz 2015-09-03 08:57:02 #28414

  Ú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 cekkk #28412 üzenetére

  Lehet, hogy a B és E oszlop értéke eltér tizedesekben, csak a megjelenítés egész számokat mutat.

• #28410 Delila_1 veterán cekkk #28409

  Új Válasz 2015-09-03 08:38:35 #28410

  Ú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 cekkk #28409 üzenetére

  Szívesen.

• #28408 Delila_1 veterán cekkk #28406

  Új Válasz 2015-09-03 08:33:03 #28408

  Ú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 cekkk #28406 üzenetére

  =HAHIBA(HA(B12=FKERES(A12;D:E;2;0);"Rendben";"Nem azonos a 2. oszlop értéke");"Nincs "&A12& " a D oszlopban")

  Írhatsz rövidebb szövegeket is.

• #28407 Delila_1 veterán bsh #28398

  Új Válasz 2015-09-03 08:24:43 #28407

  Ú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 bsh #28398 üzenetére

  Erre a kódrészletre többször kerül sor a leírásod szerint.

  Mikor első esetben hibára fut, a hibakódot megjegyzi. Ha az On Error Resume Next-tel át tudtál lépni a hibán, a művelet elvégzése után le kell nulláznod a hibakódot, hogy a következő futtatáskor ne ezzel a hibával induljon. Nem tudom, hova érdemes beírni a nullázást, legegyszerűbb, ha már eleve 0 hibakóddal indítod a programrészt az On Error Resume Next sor fölött az On Error Goto 0 sorral.

• #28405 Delila_1 veterán spe88 #28401

  Új Válasz 2015-09-03 08:17:48 #28405

  Ú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 spe88 #28401 üzenetére

  Már megkaptad a jó választ szatocstól.

  Írd a C1-be a nok karakterláncot, vidd be a D1-be a tömbképletet, majd másold le alá, ahányszor kell.

• #28404 Delila_1 veterán Vladek83 #28394

  Új Válasz 2015-09-03 08:13:03 #28404

  Ú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 Vladek83 #28394 üzenetére

  A képlet =$Q9=2

• #28403 Delila_1 veterán tzimash #28399

  Új Válasz 2015-09-03 08:11:16 #28403

  Ú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 tzimash #28399 üzenetére

  Sub mm()
  Dim sor As Long, usor As Long, ertek
  
  usor = Range("B" & Rows.Count).End(xlUp).Row
  For sor = usor To 2 Step -1
  ertek = Cells(sor, "B")
  
  If Not InStr(Cells(sor, "C"), "VBS/BS ") > 0 And _
  Cells(sor, "F") = 8960 And Cells(sor, "D") = "J" _
  And Not (ertek = 2381273 Or ertek = 2381389 Or ertek = 2587841 _
  Or ertek = 2437821 Or ertek = 2531518 Or _
  ertek = 2417707 Or ertek = 2832690) Then
  Rows(sor).Delete Shift:=xlUp
  End If
  Next
  End Sub

• #28388 Delila_1 veterán szatocs1981 #28387

  Új Válasz 2015-09-02 16:42:23 #28388

  Ú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 szatocs1981 #28387 üzenetére

  Passz.

• #28386 Delila_1 veterán hengelhof #28384

  Új Válasz 2015-09-02 16:28:30 #28386

  Ú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 hengelhof #28384 üzenetére

  

  Az A, B és D oszlopok formátuma ó:pp, a C-é általános.

• #28385 Delila_1 veterán spe88 #28383

  Új Válasz 2015-09-02 16:00:24 #28385

  Ú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 spe88 #28383 üzenetére

  A képletben a "nok" helyett egy cellahivatkozást írhatsz, ami a keresett szöveget tartalmazza, vagy az éppen keresendő karaktereket.

  Nem kell "futtatni", hiszen ez egy függvény, olyan, mint bármelyik másik Exceles.

  

• #28382 Delila_1 veterán szatocs1981 #28377

  Új Válasz 2015-09-02 15:53:22 #28382

  Ú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 szatocs1981 #28377 üzenetére

  Működik!

  Botorul a 3 cellába (D1:D3) egyszerre vittem be a képletedet.

• #28380 Delila_1 veterán spe88 #28365

  Új Válasz 2015-09-02 15:38:19 #28380

  Ú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 spe88 #28365 üzenetére

  Itt egy saját függvény.

  Function Megkeres(tartomany As Range, ertek As String)
  Dim CV As Range
  For Each CV In tartomany
  If InStr(CV, ertek) Then
  Megkeres = CV
  Exit Function
  End If
  Next
  
  Megkeres = "Nincs " & ertek & " a tartományban"
  End Function

  A cellába beírod =megkeres(A1:A9;"nok")

• #28378 Delila_1 veterán szatocs1981 #28377

  Új Válasz 2015-09-02 15:22:05 #28378

  Ú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 szatocs1981 #28377 üzenetére

  IGAZ, vagy HAMIS értéked ad, értelemszerűen.

• #28375 Delila_1 veterán szatocs1981 #28371

  Új Válasz 2015-09-02 15:17:13 #28375

  Ú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 szatocs1981 #28371 üzenetére

  Nálam sem akarja az igazságot. Egyébként huba csíszott a képletedbe, a sor($1:$100)) elé bekerült egy } karakter.

• #28370 Delila_1 veterán szatocs1981 #28369

  Új Válasz 2015-09-02 15:06:06 #28370

  Ú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 szatocs1981 #28369 üzenetére

  Igaz.

• #28368 Delila_1 veterán szatocs1981 #28367

  Új Válasz 2015-09-02 15:04:10 #28368

  Ú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 szatocs1981 #28367 üzenetére

  Hol írtam?

• #28366 Delila_1 veterán spe88 #28355

  Új Válasz 2015-09-02 14:52:52 #28366

  Ú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 spe88 #28355 üzenetére

  Ilyen megoldásra gondoltál?

  

  A B1 cella képlete

  =HA(BAL(A1;3)="nok";KÖZÉP(A1;SZÖVEG.KERES(" ";A1)+1;5)*1;"")

  A KÖZÉP függvénynél biztonság kedvéért adtam 5-öt az utolsó paraméterhez, hátha hosszabb számok is lesznek a szöveg mögött.

• #28340 Delila_1 veterán Fferi50 #28338

  Új Válasz 2015-09-02 06:47:54 #28340

  Ú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 Fferi50 #28338 üzenetére

  Régebbi verziókban az autoszűrő 1000 sorig szűrt, a kérdező 300k-jánál megbukott.

  Ezen felül gombnyomásra szeretné elvégezni a szortírozást, az eredeti lapon meg csak a nem jó tételeknek kell megmaradniuk.

• #28337 Delila_1 veterán tzimash #28336

  Új Válasz 2015-09-01 16:55:36 #28337

  Ú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 tzimash #28336 üzenetére

  Tettem fel egy fájlt, amiben egy makró teszi át az első lapról a jó tételeket a másodikra.

  Az autoszűrő sajnos csak bizonyos határig működik.
  Nem lesz túl gyors, mert soronként kell ellenőriznie a D oszlop tartalmát.

• #28335 Delila_1 veterán spe88 #28334

  Új Válasz 2015-09-01 14:11:08 #28335

  Ú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 spe88 #28334 üzenetére

  

  B1 -> =DARABTELI(A$2:A2;A2)
  C1 -> =BAL(A2;1)
  D2 -> =DARABHATÖBB(C:C;2;B:B;1)+DARABHATÖBB(C:C;3;B:B;1)

• #28333 Delila_1 veterán spe88 #28332

  Új Válasz 2015-09-01 13:07:52 #28333

  Ú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 spe88 #28332 üzenetére

  Ilyenkor zéróosztó eredményt kapsz.

  Csinálj speciális- (régebbi verziókban irányított) szűrést, jelöld be a "Csak az egyedi rekordok megjelenítése" négyzetet. Az F2 képlete =DARAB2(D2:D7)

  

• #28331 Delila_1 veterán spe88 #28330

  Új Válasz 2015-09-01 11:57:05 #28331

  Ú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 spe88 #28330 üzenetére

  =SZORZATÖSSZEG((tartomány<>"")/DARABTELI(tartomány;tartomány))

  vagy
  {=SZUM(1/DARABTELI(tartomany;tartomany))}

  Shit+Ctrl+Enterrel a 2. képlet.

• #28329 Delila_1 veterán the radish #28328

  Új Válasz 2015-09-01 10:50:44 #28329

  Ú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 the radish #28328 üzenetére

  Akkor segítene más.

  Szívesen.

• #28327 Delila_1 veterán the radish #28326

  Új Válasz 2015-09-01 10:44:18 #28327

  Ú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 the radish #28326 üzenetére

  Az eredeti makró végére, az End Sub fölé tegyél be egy sort:

  WSM.Rows(1) = ""

  Ennyi az egész, ezzel a másolt lap első sorából kitörlöd az adatokat.

• #28325 Delila_1 veterán the radish #28322

  Új Válasz 2015-09-01 09:53:00 #28325

  Ú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 the radish #28322 üzenetére

  Figyelmetlenül olvastam az előbb.

  Egy jól működő makrót ne írjunk át azért, amit könnyedén a makró nélkül is elintézhetsz. Kijelölöd a címsort, és nyomsz egy Delete-t. Ha meg úgyis törlődik, akkor ezt sem kell billentyűzetről elvégezned.

• #28324 Delila_1 veterán the radish #28322

  Új Válasz 2015-09-01 09:34:03 #28324

  Ú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 the radish #28322 üzenetére

  Rows(1).Copy WSM.Range("A1") 'fejléc másolása ezt sort töröld ki a makróból.

• #28323 Delila_1 veterán tzimash #28319

  Új Válasz 2015-09-01 09:27:59 #28323

  Ú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 tzimash #28319 üzenetére

  Másold át a fejlécet egy új lapra.

  Használd az autoszűrőt az eredeti lapon. Megadhatod, hogy azok a sorok legyen láthatóak, amelyek tartalmazzák a J karaktert. Ezeket a teljes sorokat kijelölöd, Ctrl+c-vel másolod, az új lap A2 cellájába Ctrl+v-vel beilleszted.

  Marad a kijelölés az első lapon, ezeket a sorokat törlöd.

• #28321 Delila_1 veterán bumlet #28320

  Új Válasz 2015-09-01 09:19:28 #28321

  Ú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 bumlet #28320 üzenetére

  Szívesen.

• #28318 Delila_1 veterán bumlet #28317

  Új Válasz 2015-09-01 09:09:43 #28318

  Ú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 bumlet #28317 üzenetére

  Remélem, most jót töltöttem fel.

• #28316 Delila_1 veterán #81999360 #28315

  Új Válasz 2015-09-01 06:26:45 #28316

  Ú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 #81999360 #28315 üzenetére

  Túl sok az Excel lelkének, nem fogadja el a ##.##.##.##-#### formátumot az egyéni kategóriában. Javaslom, hogy a beírás oszlopát szöveg formátumra vedd, és egy segédoszlopban az

  =BAL(A1;2)&"." & KÖZÉP(A1;3;2) &"." & KÖZÉP(A1;5;2) &"." & KÖZÉP(A1;7;2) &"-" &JOBB(A1;4)

  képlettel formázd a kedved szerint.

• #28313 Delila_1 veterán bumlet #28309

  Új Válasz 2015-08-31 18:34:53 #28313

  Ú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 bumlet #28309 üzenetére

  Feltettem ide a füzetedet egy makróval.

  A Segéd lapot töröltem. Összesen 2 adat miatt nem érdemes fenntartani egy teljes lapot, az érvényesítést másképp adtam meg a többi lap G oszlopában.

• #28312 Delila_1 veterán Mittu88 #28311

  Új Válasz 2015-08-31 17:15:58 #28312

  Ú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 Mittu88 #28311 üzenetére

  Szivi.

  A hibakódot úgy tudtam meg, hogy nem létező fájlt írtam a megnyitáshoz. Ekkor leállt hibával (még nem írtam hibakezelést), és kiírta, amire szükségem volt.

  Szerk.:
  A 23310-ben felcseréltem az igen-nem válaszokhoz tartozó következő lépéseket, de észrevetted.

• #28310 Delila_1 veterán Mittu88 #28305

  Új Válasz 2015-08-31 16:40:44 #28310

  Ú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 Mittu88 #28305 üzenetére

  Az On Error Resume Next hibát generál, ha nem tudja megnyitni a következő sorban a fájlodat.

  A megnyitási hiba kódja az 1004. Mikor bejön ez a hibakód, felteszi a kérdést

  valasz = MsgBox("Újrahívás", vbYesNo + vbExclamation, "Új próbálkozás")

  Igen válasz esetén kilép a Sub-ból, Nem-nél az Ujra címkéhez ugrik, ahol megszüntetjük a hibakódot az
  On Error GoTo 0 sorral, másképp hibát jelez akkor is, ha most már meg tudja nyitni a fájlt.
  Ez a lenullázó sor tulajdonképpen a 2. próbálkozástól érdekes, első esetben 0 a hibakód.

• #28293 Delila_1 veterán m.zmrzlina #28292

  Új Válasz 2015-08-28 17:34:21 #28293

  Ú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 m.zmrzlina #28292 üzenetére

  "nagyobb hajlam van arra, hogy kitaláld a hiányzó peremfeltételeket"

  Talán azért, mert úgy gondolom, a kérdezőt elbizonytalaníthatja a sok újabb kérdés. Nem szeretnék senkiből kisebbségi érzést kiváltani, inkább 3× válaszolok.

  Szerencsére ezen a fórumon nem macerálják az emberek egymást, de van olyan hely, ahol porig aláznak mindenkit, aki kérdez.

• #28291 Delila_1 veterán Snoop-y #28286

  Új Válasz 2015-08-28 17:24:37 #28291

  Ú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 Snoop-y #28286 üzenetére

  A CONCATENATE (ÖSSZEFŰZ) függvény helyett egyszerűbb az & jel a két találat között.

  Nem nézem vissza a sok posztot, de úgy rémlik, a kérdező az első lap N oszlopába kérte a találatokat. Lehet, hogy ezt nem is te kérdezted.

• #28289 Delila_1 veterán m.zmrzlina #28287

  Új Válasz 2015-08-28 17:20:58 #28289

  Ú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 m.zmrzlina #28287 üzenetére

  De haragszom az n-edik átírás után, csak nem nagyon. Abból indulok ki, hogy aki kérdez, ebben a témában nem olyan profi, mint valami másban, amiben viszont én nem vagyok jártas, és amiben nem tudnék egy tisztességes, lényegretörő kérdést feltenni – ha szükségem lenne rá.

  Vajh' a lényegretörőt a hamarosan megjelenő új helyesírási szótár szerint így kell írni?

• #28274 Delila_1 veterán poffsoft #28272

  Új Válasz 2015-08-28 08:09:42 #28274

  Ú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 poffsoft #28272 üzenetére

  A képen a 2 megjegyzés, és a szerkesztőléc mutatja a függvényeket.
  A laphoz van rendelve a frissítő makró.

  

• #28273 Delila_1 veterán poffsoft #28272

  Új Válasz 2015-08-28 07:48:30 #28273

  Ú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 poffsoft #28272 üzenetére

  A laphoz rendelt

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calculate
  End Sub

  makró frissíti a felhasználói függvényed értékét.

• #28271 Delila_1 veterán Mittu88 #28269

  Új Válasz 2015-08-27 17:31:39 #28271

  Ú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 Mittu88 #28269 üzenetére

  Próbáld így

  Sub mm()
  Dim valasz
  
  Ujra:
  On Error GoTo 0
  
  On Error Resume Next
  Workbooks.Open "F:\Eadat\Zoli Jkv_5.xls"
  If Err = 1004 Then
  valasz = MsgBox("Újrahívás", vbYesNo)
  If valasz = vbNo Then Exit Sub
  GoTo Ujra
  End If
  MsgBox "Tovább"
  End Sub

• #28266 Delila_1 veterán Mittu88 #28263

  Új Válasz 2015-08-27 15:13:26 #28266

  Ú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 Mittu88 #28263 üzenetére

  Szivi, remélem, sikerül összehozni. Hivatkozhatsz a hibakódra is.

• #28264 Delila_1 veterán Bubicica #28262

  Új Válasz 2015-08-27 15:12:05 #28264

  Ú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 Bubicica #28262 üzenetére

  Onnan, hogy a feltétel megadása előtt kijelölted a tartományt, tehát a többi oszlopra is vonatkozik (az adott sorban) az $E:$G -ben kitöltött cellák darabszáma.

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