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

• #36533 Delila_1 veterán ben800 #36532

  Új Válasz 2017-11-15 17:33:30 #36533

  Ú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 ben800 #36532 üzenetére

  A segédoszloppal oldottad meg?

• #36531 Delila_1 veterán ben800 #36530

  Új Válasz 2017-11-15 16:53:52 #36531

  Ú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 ben800 #36530 üzenetére

  Gyors kérdésre gyors válasz: nem. A szumhatöbb kritériumai ÉS kapcsolatban vannak egymással.

  Felvehetsz egy új oszlopot, ahova VAGY-gyal beteszed a két feltételt, és értéket (0; 1) rendelsz hozzá, majd a szumhatöbb függvénnyel erre az oszlopra hivatkozol.

  =ha(vagy(a1=1;a1=2);1;0)

• #36408 Delila_1 veterán ben800 #36407

  Új Válasz 2017-10-29 06:42:35 #36408

  Ú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 ben800 #36407 üzenetére

  A jobb oldali füzeted F oszlopa üres, azért nem másol a bal oldali összesítőbe, nincs mit.

  

  Csak délután leszek itt újra.

• #36403 Delila_1 veterán ben800 #36402

  Új Válasz 2017-10-28 16:01:44 #36403

  Ú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 ben800 #36402 üzenetére

  Hajrá!

• #36401 Delila_1 veterán ben800 #36400

  Új Válasz 2017-10-28 11:31:13 #36401

  Ú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 ben800 #36400 üzenetére

  Szia!

  Sub adatpotlas()
Dim sor As Long, usor As Long, FN As String
Const utvonal = "F:\Mappa1\" '******** 1 ********
Dim Fotabla As Worksheet, WF As WorksheetFunction, talalt As Variant

Set Fotabla = ActiveWorkbook.Sheets(1) '******** 2 ********
Set WF = Application.WorksheetFunction

FN = Dir(utvonal & "*.xlsx", vbNormal)
Do While FN <> ""
Workbooks.Open Filename:=utvonal & FN
Sheets(1).Activate '******** 3 ********
usor = Cells(Rows.Count, 2).End(xlUp).Row
For sor = 2 To usor
If WF.CountIf(Fotabla.Columns(4), Cells(sor, "B")) > 0 Then
talalt = WF.Match(Cells(sor, 2), Fotabla.Columns(4), 0)
If Cells(sor, "F") > "" Then
Fotabla.Range("H" & talalt) = utvonal & " " & FN '******** 4 ********
Fotabla.Range("I" & talalt) = Cells(sor, "F")
End If
End If
Next

ActiveWorkbook.Close False
FN = Dir()
Loop
End Sub

  Az összesítő füzetben másold egy modulba a makrót.
  Csillagos sorok:
  1. a saját útvonaladat írd az "F:\Mappa1\" helyére
  2. ha az összesítő füzetnek nem az első lapjára kell a kigyűjtés, a zárójelbe a valós sorszámot-, vagy idézőjelek közé a lapnevet írd be Set Fotabla = ActiveWorkbook.Sheets("Munka1")
  3. a 2-es pont vonatkozik a megnyitott füzetekre is
  4. a H oszlopba most találat esetén a találat mappáját és füzetének a nevét írja. Ehelyett lehet Fotabla.Range("H" & talalt) = "Megvan"

• #36210 Pakliman tag ben800 #36209

  Új Válasz 2017-09-28 18:45:49 #36210

  Ú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

  

  Pakliman

  tag

  válasz ben800 #36209 üzenetére

  Szívesen

• #36208 Pakliman tag ben800 #36204

  Új Válasz 2017-09-28 13:56:07 #36208

  Ú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

  

  Pakliman

  tag

  válasz ben800 #36204 üzenetére

  Úgy nagyjából valami ilyesmi...

  Public Sub AdatMásolás()
Dim wbT As Workbook 'A "kis" munkafüzet, ami tartalmazza a...
Dim wsT As Worksheet '..munkalapokat (1-től 12-ig)
Dim cT As Long 'Számláló (a 19 db táblázathoz)
Dim usT As Long 'A kis táblázat utolsó sora

Dim aws As Worksheet 'Csak azért, hogy ne ActiveSheet legyen:)
Dim us As Long 'A FŐ táblázat utolsó sora

Dim sor As Long 'Egyszerű számláló
Dim talált 'A keresett azonosító cellacíme lesz

Set aws = ActiveSheet

For cT = 1 To 19
On Error GoTo Hiba
Set wbT = Workbooks.Open("a feldolgozandó kis táblázat neve útvonallal együtt")
For Each wsT In wbT.Worksheets
usT = wsT.Cells(wsT.Rows.Count, 1).End(xlUp).Row
For sor = 2 To usT 'Feltételezve, hogy az 1. sor fejléc
'Az azonosító az 1. oszlopban van
'!!! A FŐ táblában (aws) keressük a kis táblás azonosítót (wsT.Cells(sor, 1)) !!!
Set talált = aws.Columns(1).Find(What:=wsT.Cells(sor, 1), LookAt:=xlWhole, MatchCase:=True)
'Ha találtunk, akkor nem csinálunk semmit.
'Ellenben:
If talált Is Nothing Then
us = aws.Cells(aws.Rows.Count, 1).End(xlUp).Row
aws.Cells(us + 1, 1) = "azonosító"
aws.Cells(us + 1, 2) = "adat1"
aws.Cells(us + 1, 3) = "adat2"
aws.Cells(us + 1, 4) = "adat3"
aws.Cells(us + 1, 5) = "adat4"
aws.Cells(us + 1, 6) = "adat5"
'...

End If

Next sor
Next wsT

On Error GoTo 0
wbT.Close SaveChanges:=False
Next cT

Set wbT = Nothing
Set wsT = Nothing
Set aws = Nothing
GoTo Vége

Hiba:
'Hibakezelés, pl. ha nincs olyan fájl stb.
'Ha nem kell tenni semmit hiány esetén, akkor egyszerűen csak..
Resume Next

Vége:

End Sub

• #36201 Pakliman tag ben800 #36200

  Új Válasz 2017-09-27 08:50:28 #36201

  Ú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

  

  Pakliman

  tag

  válasz ben800 #36200 üzenetére

  Szia!

  A lényeg (egyben a megoldás kulcsa), hogy a "kis" táblákban a soroknak legyen egy egyedi azonosítója (ezt a felhasználónak nem is kell látnia).
  Ha ez megvan, onnantól már pikk-pakk (meg még néhány sor VBA kóddal ) megoldható a dolog.
  Ha nincs és nem is megoldható, akkor gáz van

• #36198 Fferi50 Topikgazda ben800 #36195

  Új Válasz 2017-09-26 19:26:37 #36198

  Ú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 ben800 #36195 üzenetére

  Szia!

  Ez nagyon "izgalmas" kérdés. Ugyanis valamilyen módon meg kell tudni "címezni" a kis táblák adatait ahhoz, hogy a nagy táblában megtaláld (és ott is ugyanilyen "címen" kell megtalálni. Pl. fül - hónap nap.
  Nézd meg az Adatok - Összesítés menüpont lehetőségeit.
  Elképzelhető, jobban jársz ha beleteszed a kis munkafüzeteket a nagyba.

  Üdv.

• #35771 Fferi50 Topikgazda ben800 #35770

  Új Válasz 2017-07-21 18:18:29 #35771

  Ú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 ben800 #35770 üzenetére

  Szia!

  Szerintem próbáld meg kimutatás készítéssel.

  Üdv.

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