Jeigu yra būdas padaryti geriau, atrask jį. T. A. Edison

Sveiki, Svečias
Prisijungimo vardas: Slaptažodis: Prisiminti mane
  • Puslapis:
  • 1
  • 2
  • 3

TEMA: Duomenų iš skirtingų lentelių perkėlimas į vieną

Duomenų iš skirtingų lentelių perkėlimas į vieną prieš 4 m. 8 mėn. #13

  • ZygD
  • ZygD avataras
  • Neprisijungęs
  • Auksinis narys
  • Žinutės: 197
  • Gauta padėka 60
  • Reputacija: 20
APYŽALIS parašė:
Dėkoju visiems už patarimus ir pagalbą!
B)
O ar bent suveikė?
Administratorius uždraudė viešą pranešimų rašymą.
Jums padėkojo šie nariai: APYŽALIS

Duomenų iš skirtingų lentelių perkėlimas į vieną prieš 4 m. 8 mėn. #14

  • APYŽALIS
  • APYŽALIS avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 9
  • Reputacija: 2
Noriu padėkoti visiems, kurie bandė spręsti mano problemą.
Iš dalies ją išsprendė Deivydas L. (sukūrė ir atsiuntė man į el. paštą). Veikia, bet norėčiau dar pasiklausti kaip privest ją iki galo.
O aš todėl ir pasivadinau "Apyžalis", nes esu savamokslis, kuris nelabai "nuraukia" makrokomandų kūrime ir pan.
Moku tik keletą įmantresnių loginių funkcijų ir tiek. Todėl BB kodai man kol kas -"tamsus miškas" ir nesugebėjau pasidaryt taip, kad galėčiau pasitikrint suveikė ar ne. :(
Norėčiau praplėsti akiratį, kad mano galvai tai būtų įkandama, bet į ką kreiptis Kaune - neįsivaizduoju. Arba smarkiai pažengę kompiuteristai, kuriems aš neįdomus, arba ne tos srities specialistai...

Tikrai faina chebrytė esat, kad stengiatės visiems padėti. Šiais laikais tai nykstantis reiškinys.
Dar kartą visiems dėkui!
Administratorius uždraudė viešą pranešimų rašymą.

Duomenų iš skirtingų lentelių perkėlimas į vieną prieš 4 m. 8 mėn. #15

  • dll
  • dll avataras
  • Neprisijungęs
  • Moderatorius
  • Žinutės: 194
  • Gauta padėka 47
  • Reputacija: 20
Aš ir pats apyžalis toje srityje, bet kadangi šis forumas viešas, tai vistiek pasidalinu būdu, kuris APYŽALIS tikiuosi pagelbėjo. Pirmiausia, kadangi duomenys buvo surenkami iš vis tų pačių lentelių, tai nedariau kažko tokio universalaus, o tiesiog pagal lentelių pavadinimus susirinkau duomenų diapazonus ir juos perkėliau į tą lapą/ataskaitą, kur juos ir reikėjo surinkti. Kodas, kurį tiesiog pakartojau su skirtinga paieška kiekvienai lentelei (nekartojau paieškos tik "Aktas" lape, kadani eilutę nusistačiau jau anksčiau):
Cells.Find(What:="I GRUPËS DALYS :", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
 
 r1 = ActiveCell.Row + 1
 
    If Cells(r1, 2) <> "" Then
 
    Range(Cells(r1, 2), Cells(r1, 3).End(xlDown)).Copy
 
        Sheets("Aktas").Select
        Range("A1").Select
 
 Cells.Find(What:="Keistinø detaliø sàraðas", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
  r2 = ActiveCell.Row + 1
    Cells(r2, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Cells(r2, 1).End(xlDown).Select
 
    r2 = ActiveCell.Row + 1
 
    End If
Paskutinis taisymas: prieš 4 m. 8 mėn. nuo dll.
Administratorius uždraudė viešą pranešimų rašymą.
Jums padėkojo šie nariai: APYŽALIS
  • Puslapis:
  • 1
  • 2
  • 3
Puslapio sukūrimo laikas: 0.341 sekundžių