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

• #2141 nagy.aa csendes tag

  Új Válasz 2007-04-03 15:00:27 #2141

  Ú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

  

  nagy.aa

  csendes tag

  Sziasztok!
  
  A következő a problémám:
  Adva van egy excel tábla, több füllel, egy szerveren elhelyezve. Itt kellene megkeresni egy adott számsorozatot (ez változó mikor milyet) és ahol ezt megtalálja azokat a sorokat akár egy msgbox-ba kiíratni vagy egy új munkalapra elhelyezni.
  Remélem érhető voltam, tehát egy excel fájlban megkeresni bizonyos cellákat és ahol ilyet talál azokat a teljes sorokat kiíratni egy üzenet ablakba vagy új excel táblába.
  Szerintem excel makróval megoldható lenne de sajnos én ehez tök hülye vagyok. Viszont nagyon sokat segítene!
  Nagyon hálás lennék ha tudna ebben valaki segíteni!
  
  Üdv
  András

• #1705 nagy.aa csendes tag lapa #1704

  Új Válasz 2006-11-01 12:54:20 #1705

  Ú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

  

  nagy.aa

  csendes tag

  válasz lapa #1704 üzenetére

  Tehát van két excel tábla aminek a tartalmát össze szeretném fésülni egy új táblába. Mindkét táblában van olyan oszlop melynek a tartalma lenne az elsődleges kulcs, azaz ha a másik táblában is van ilyen érték akkor nem új sorba teszi hanem felülírja a meglévő adatokat (jelen esetben nálam ez egy cikkszám lenne). Ha nincs a második táblában ilyen érték akkor egy új sorba helyezi el az adatokat. Ez lenne a lényeges és ha még az megoldható, hogy azt is vizsgálja meg, hogy esetleg vannak e eltérő oszlop tartalmak és ha igen akkor azoknak egy új oszlopot nyitna az már hab lenne a tortán!
  
  Példa:
  
  1-es tábla:
  cikk EAN Név T1 T2 T3
  1 52 Kac 52 se ve
  2 13 Sic 18 fi cg
  5 68 Vic 27 xe de
  
  2-es tábla:
  cikk EAN Név T1 T2 T5 F9
  8 28 Bec 26 ys dc jo
  7 54 Asp 14 vf ar gh
  2 13 Sic 18 fi cg df
  
  Tehát két ilyesmi felépítésű táblát kellen egy harmadik újba összefésülni.
  
  Köszönöm!

• #1703 nagy.aa csendes tag

  Új Válasz 2006-11-01 07:44:23 #1703

  Ú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

  

  nagy.aa

  csendes tag

  Már nem is tudom, hogy hol , de lapa megoldása volt ez :
  Option Explicit
  
  Sub export()
  
  Dim elso, masodik, harmadik, negyedik, otodik, hatodik, hetedik As String
  Dim fold As FileDialog
  Dim foldrv As Variant
  Dim fso As Object
  Dim fajllista As FileSearch
  Dim fajllistaindex As Long
  Dim forras, cel As String
  
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  
  cel = ActiveWindow.Caption
  
  Set fold = Application.FileDialog(msoFileDialogFolderPicker)
  
  With fold
  If .Show = -1 Then
  foldrv = .SelectedItems(1)
  Else
  Exit Sub
  End If
  End With
  
  Set fajllista = Application.FileSearch
  
  With fajllista
  .NewSearch
  .LookIn = foldrv
  .Filename = ''*.xls''
  .SearchSubFolders = False
  If .Execute > 0 Then
  For fajllistaindex = 1 To .FoundFiles.Count
  'MsgBox .FoundFiles(fajllistaindex)
  Workbooks.Open Filename:=.FoundFiles(fajllistaindex)
  
  forras = ActiveWindow.Caption
  
  ' első fül A1 cella
  Workbooks(cel).Sheets(1).Cells(fajllistaindex, 1) = Workbooks(forras).Sheets(1).Cells(1, 1)
  ' első fül B1 cella
  Workbooks(cel).Sheets(1).Cells(fajllistaindex, 2) = Workbooks(forras).Sheets(1).Cells(1, 2)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex, 3) = Workbooks(forras).Sheets(1).Cells(1, 3)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex, 4) = Workbooks(forras).Sheets(1).Cells(1, 4)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex, 5) = Workbooks(forras).Sheets(1).Cells(1, 5)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex, 6) = Workbooks(forras).Sheets(1).Cells(1, 6)
  Workbooks(cel).Sheets(1).Cells(fajllistaindex, 7) = Workbooks(forras).Sheets(1).Cells(1, 7)
  '(fajllistaindex, 1) = workbooks(
  
  Application.DisplayAlerts = False
  Workbooks(forras).Close
  Application.DisplayAlerts = True
  
  '''=[Book1.xls]Sheet1!R1C1''
  '''=['' & .FoundFiles(fajllistaindex) & ''Sheet1!R1C1''
  
  Next fajllistaindex
  End If
  End With
  
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
  Application.Calculate
  
  MsgBox ''készen vagyunk. összesen '' & fajllistaindex & '' fájlból importáltunk adatokat.'', vbInformation + vbOKOnly, ''köszönjük, hogy minket választott''
  
  End Sub
  
  
  
  
  Nos most valami ilyesmire lenne szükségem, viszon az kellene, hogy a táblákból ne csak az elsősor adatait importálja, hanem minden adatot! Annyi cifrával, hogy van mindben egy oszlop ami úgymond a kulcs, tehát ha mindkettőben talál ilyet akkor csak az egyikből vegye, kétszer ne szerepeljen ua. a sor csak az elérő oszlop tartalmat importálja a meglévőhöz!
  Remélem érthető voltam?!
  
  Kérlek segítsetek!

• #1689 nagy.aa csendes tag lapa #1688

  Új Válasz 2006-10-29 14:46:15 #1689

  Ú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

  

  nagy.aa

  csendes tag

  válasz lapa #1688 üzenetére

  Köszönöm!!!!!!

• #1687 nagy.aa csendes tag

  Új Válasz 2006-10-29 09:56:33 #1687

  Ú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

  

  nagy.aa

  csendes tag

  Sziasztok!
  A köv. problémára keresem a megoldást:
  van egy táblázat,
  az oszlopok: cégnév, cégazanosítókód,termék azonosítókód, terméknév, EAN, készlet, ár
  a sorokban változó összetétellel a termékek
  Hogyan tudnám a legegyszerűbben lekérdezni egy adott cégre az árúk értékét, darabszám szerinti mennyiségét? és ezt több cégre is meg kellene csinálni.
  A táblában kb. 10-15 ezer sor van.

• #1631 nagy.aa csendes tag ponti_ak #1629

  Új Válasz 2006-10-18 18:41:14 #1631

  Ú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

  

  nagy.aa

  csendes tag

  válasz ponti_ak #1629 üzenetére

  Hát igen ez az én gondom is, mindenesetre köszönöm, hogy próbáltál segíteni! Ráadásul most egy olyan táblával kell dolgoznom amely két fülön külön külön 48000 adatot tartalmaz és mind más.

• #1628 nagy.aa csendes tag ponti_ak #1626

  Új Válasz 2006-10-17 18:00:46 #1628

  Ú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

  

  nagy.aa

  csendes tag

  válasz ponti_ak #1626 üzenetére

  Ezzel csak annyi a problémám, hogy ezt hetente többször is el kellene végezni és kb. 30000-es adatbázissal. Aztán mivel az egyik táblában lesznek olyan oszlopok melyek a másikban nem így körülményes a megvalósítás. Bocsi de tudom, hogy a legegyszerűbb erre az lenne ha csinálnák hozzá egy kis scriptet, de ehez én hülye vagyok!

• #1625 nagy.aa csendes tag Senior tag #1623

  Új Válasz 2006-10-15 05:28:26 #1625

  Ú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

  

  nagy.aa

  csendes tag

  válasz Senior tag #1623 üzenetére

  Köszönöm a választ, azonban ez csak félig megoldás nekem, mivel így csak azokat az értékeket teszi át amiből az elsőtáblában is van hozzá párosuló adat. Viszot nekem az is átkellene tenni amiből nincs az első táblázatban, csak persze ezeket új sorokba és minden adatot át kellene illeszteni.

• #1615 nagy.aa csendes tag

  Új Válasz 2006-10-14 16:24:25 #1615

  Ú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

  

  nagy.aa

  csendes tag

  Sziasztok!
  
  A következő a problémám: van két excel tábla amiben az adatok egyrésze azonos, más része nem. Viszont mindkét táblának van elsődleges kulcsként használható tartalma. Hogyan lehetne ezt a két táblát összefésülni egybe úgy hogy ami az elsődleges kulcshoz tartozó adatokat azt a kulcs sorába tegye egymás után.
  Nem tudom mennyire vagyok érthető, de valami hasonló dologra lenne szükségem mint ez [link], csak mivel ez fizetős program és nem vet fel a pénz ezért kérném a segítségeteket.
  
  [Szerkesztve]
  
  [Szerkesztve]

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