inserare randuri

Informatii despre cum se utilizeaza Microsoft Excel 2003. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
Închis
george199999
Mesaje: 128
Membru din: Lun Aug 24, 2009 8:18 am

inserare randuri

Mesaj de george199999 » Mar Sep 01, 2009 8:01 am

Intr-o foaie cu mai multe inregistrari am de inserat mai multe randuri (dupa anumite inregistrari).
De exemplu pentru a insera 10 randuri ma pozitionez sub linia respectiva inserez un rand, apoi inca unul, apoi le selectez pe cele 2 goale si mai inserez 2, apoi le selectez pe cele 4 si mai inserez 4, apoi selectez 2 si mai inserez 2 (in total 10).
Mentionez ca foaia are mii de inregistrari.
S-ar putea face acest lucru si altfel? (de ex. sa se deschida o fereastra unde sa completez cate randuri am nevoie) :?: :?: :?:

Dr. Cloud
Mesaje: 3327
Membru din: Mar Oct 02, 2012 11:19 am

Re: inserare randuri

Mesaj de Dr. Cloud » Mar Sep 01, 2009 9:15 am

Cod: Selectaţi tot

Sub InsertRow_Click()
On Error GoTo err
Dim Rng As Long

   Application.ScreenUpdating = False
         Rng = InputBox("Cate randuri vrei sa adaugi?")
            If Rng = "" Then Exit Sub
         Range(ActiveCell, ActiveCell.Offset(Val(Rng) - 1, 0)).EntireRow.Insert
Exit Sub

err:
    MsgBox "A fost gasita o eroare. Descrierea ei este: " & err.Description, vbOkOnly+VbInformation, "Eroare"
End Sub
Ce ai de facut?
- selectezi celula dorita, rulezi macro-ul, introduce in acea caseta de dialog nr. de randuri dorite si codul iti va introduce acel numar de randuri deasupra celulei selectate de tine.

Eu l-am testat si este ok.
Bafta!

george199999
Mesaje: 128
Membru din: Lun Aug 24, 2009 8:18 am

Re: inserare randuri

Mesaj de george199999 » Mar Sep 01, 2009 9:55 am

Multumesc, merge foarte bine.

zvonacfirst
Mesaje: 105
Membru din: Mie Feb 19, 2014 10:41 pm

Re: inserare randuri

Mesaj de zvonacfirst » Mie Aug 23, 2017 2:13 pm

Activez acest subiect deoarece cautam o solutie pentru introducerea unui/unor randuri intr-un sheet.
Desi @george199999 afirma ca merge foarte bine, eu nu reusesc sa fac acest cod functional. Intoarce eroare de fiecare data.
Atasez un fisier pentru exemplificare.
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.

TudyBTH
Moderator
Moderator
Mesaje: 993
Membru din: Joi Feb 11, 2016 2:12 pm
Localitate: Cluj Napoca

Re: inserare randuri

Mesaj de TudyBTH » Mie Aug 23, 2017 2:51 pm

Incercati urmatorul cod:

Cod: Selectaţi tot

Sub InsertRow_Click()
On Error GoTo err
Dim Rng As Long

   Application.ScreenUpdating = False
         Rng = Val(InputBox("Cate randuri vrei sa adaugi?"))
            If CStr(Rng) = "" Then Exit Sub
         Range(ActiveCell, ActiveCell.Offset(Val(Rng) - 1, 0)).EntireRow.Insert
Exit Sub

err:
    MsgBox "A fost gasita o eroare. Descrierea ei este: " & err.Description, vbOKOnly + vbInformation, "Eroare"
End Sub
Am invatat sa inotam in apa, ca pestii
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.

zvonacfirst
Mesaje: 105
Membru din: Mie Feb 19, 2014 10:41 pm

Re: inserare randuri

Mesaj de zvonacfirst » Mie Aug 23, 2017 3:57 pm

Da, multumesc, functioneaza.
Am deschis discutia despre inserare de randuri intr-un alt topic.
Doream sa folosesc acest cod ca inspiratie pentru rezolvarea problemei de acolo, dar nu stiu daca voi reusi.

Închis

Înapoi la “Intrebari despre Excel 2003”