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

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

TEMA: Duomenų perkelimas iš vieno sąrašo į kitą

Duomenų perkelimas iš vieno sąrašo į kitą prieš 6 m. 2 mėn. #1

  • Bonqe
  • Bonqe avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 1
  • Reputacija: 0
Kaip padaryti, kad pažymėjus kurią nors varnelę PAVADINIMAS ir KAINA atsidurtų kitoje lentelėje?

www28.zippyshare.com/v/13845276/file.html < excel failas

Paskutinis taisymas: prieš 6 m. 2 mėn. nuo Bonqe.
Administratorius uždraudė viešą pranešimų rašymą.

Duomenų perkelimas iš vieno sąrašo į kitą prieš 6 m. 2 mėn. #2

  • jakim
  • jakim avataras
  • Neprisijungęs
  • Auksinis narys
  • Žinutės: 199
  • Gauta padėka 93
  • Reputacija: 30
Prašau rinkitės iš dviejų variantų.
Antras variantas paprastesnis.
Pirmas variantas su masyvo formulėmis (Cntrl-Shift-Enter)
Administratorius uždraudė viešą pranešimų rašymą.

Duomenų perkelimas iš vieno sąrašo į kitą prieš 6 m. 2 mėn. #3

  • ups
  • ups avataras
  • Neprisijungęs
  • Veteranas
  • Žinutės: 67
  • Gauta padėka 24
  • Reputacija: 9
Kaip variantas,kuris veikia ir 2003 excelyje(patikėkite-jį dar naudoja)
Paskutinis taisymas: prieš 6 m. 2 mėn. nuo ups.
Administratorius uždraudė viešą pranešimų rašymą.

Duomenų perkelimas iš vieno sąrašo į kitą prieš 6 m. 2 mėn. #4

  • dll
  • dll avataras
  • Neprisijungęs
  • Moderatorius
  • Žinutės: 194
  • Gauta padėka 47
  • Reputacija: 20
Kai teko su panašia užduotim susidurti, tai naudojau kodą panašų į šį:
Sub Kopijuoti()
 
Application.ScreenUpdating = False
 
R = 4
Range("J4:K6").ClearContents
 
Do While R <= 6
     If Range("F" & R) = True Then
         Range("C" & R & ":D" & R).Copy _
         Destination:=Range("J" & Rows.Count).End(xlUp).Offset(1)
 
     End If
 
     R = R + 1
 
Loop
 
Application.ScreenUpdating = True
 
End Sub

Tačiau jį kiek pamenu klijavau iš dalių, tai galbūt yra ir greitesnis bei paprastesnis variantas :)
Administratorius uždraudė viešą pranešimų rašymą.

Duomenų perkelimas iš vieno sąrašo į kitą prieš 6 m. 2 mėn. #5

  • ZygD
  • ZygD avataras
  • Neprisijungęs
  • Auksinis narys
  • Žinutės: 197
  • Gauta padėka 60
  • Reputacija: 20
Hm, paprasčiausias atrodo variantas, kurį siūlo ups. Aš irgi panašiai būčiau daręs.
Turiu klausimą jakim. Niekad gerai nesupratau array formulių. Gal gali pakomentuoti, kodėl ėjai per SMALL ir kodėl į jo pirmą argumentą įrašytas toks įdomus reiškinys: ($C$2:$C$100=0)*9^9+ROW($A$2:$A$100) ? Nesuprantu, ką duoda ($C$2:$C$100=0)*9^9 .
Administratorius uždraudė viešą pranešimų rašymą.

Duomenų perkelimas iš vieno sąrašo į kitą prieš 6 m. 2 mėn. #6

  • jakim
  • jakim avataras
  • Neprisijungęs
  • Auksinis narys
  • Žinutės: 199
  • Gauta padėka 93
  • Reputacija: 30
Man sunku paaiškinti Jums lietuviškai tą reiškinį, nesvarbu ar 9^9, ar 8^8 svarbu kad tas skaičius būtu didesnis vieno milijono Exceliui 2010.
Pasižiūrėkit.
Administratorius uždraudė viešą pranešimų rašymą.
Jums padėkojo šie nariai: ZygD
  • Puslapis:
  • 1
  • 2
Puslapio sukūrimo laikas: 0.394 sekundžių