inserare randuri
-
- Mesaje: 128
- Membru din: Lun Aug 24, 2009 8:18 am
inserare randuri
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)
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)
Re: inserare randuri
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
- 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!
-
- Mesaje: 128
- Membru din: Lun Aug 24, 2009 8:18 am
Re: inserare randuri
Multumesc, merge foarte bine.
-
- Mesaje: 105
- Membru din: Mie Feb 19, 2014 10:41 pm
Re: inserare randuri
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.
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.
Re: inserare randuri
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.
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
-
- Mesaje: 105
- Membru din: Mie Feb 19, 2014 10:41 pm
Re: inserare randuri
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.
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.