macro insert rows
macro insert rows
buna dimineata.
am un document de aprox 100.000 randuri care trebuie sortate intr-un anumit fel.am nevoie daca ma poate ajuta cineva de un macro care sa imi insereze 4 randuri goale la fiecare 11 randuri cu date.am cautat pe net si am gasit ceva de genul
Sub InsertRow()
Dim Rng
Rng = InputBox("Enter number of rows required.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
End Sub
dar din pacate sunt incepatoare in excel si chiar nu inteleg cu ce date trebuie completat macroul respectiv,mai precis nu stiu ce date trebuie sa ii dau la range.am incercat sa completez dar nu mi-a prea iesit.
multumesc anticipat
am un document de aprox 100.000 randuri care trebuie sortate intr-un anumit fel.am nevoie daca ma poate ajuta cineva de un macro care sa imi insereze 4 randuri goale la fiecare 11 randuri cu date.am cautat pe net si am gasit ceva de genul
Sub InsertRow()
Dim Rng
Rng = InputBox("Enter number of rows required.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
End Sub
dar din pacate sunt incepatoare in excel si chiar nu inteleg cu ce date trebuie completat macroul respectiv,mai precis nu stiu ce date trebuie sa ii dau la range.am incercat sa completez dar nu mi-a prea iesit.
multumesc anticipat
- Dr.Excel
- Site Admin
- Mesaje: 1997
- Membru din: Sâm Ian 24, 2009 1:45 pm
- Localitate: Bucharest
- Contact:
Re: macro insert rows
Codul pe care l-ai gasit pe NET nu face ce ziceai tu ca vrei sa faca
o sa-ti facem noi macro-ul de care ai nevoie. Te rugam sa ne spui (mai explicit) ce vrei sa faca acesta.
Eventual poti atasa aici un exemplu de carte (nu-i nevoie sa contina toata cele 100.000 de randuri, si nici datele tale reale).
o sa-ti facem noi macro-ul de care ai nevoie. Te rugam sa ne spui (mai explicit) ce vrei sa faca acesta.
Eventual poti atasa aici un exemplu de carte (nu-i nevoie sa contina toata cele 100.000 de randuri, si nici datele tale reale).
MCT, MCITP
MOS Master Instructor
IT Learning
Re: macro insert rows
Incearca acest cod PE O COPIE a datelor:
Cod: Selectaţi tot
Sub Ins4R()
Dim i, j As Long
i = 1
j = 1
Do While Cells(i, 1).Value <> ""
If j < 11 Then
i = i + 1
j = j + 1
Else
If Cells(i + 1, 1).Value <> "" Then
Rows(Trim(Str(i + 1)) & ":" & Trim(Str(i + 1))).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
i = i + 5
j = 1
Else
Exit Do
End If
End If
Loop
Cells(i, 1).Select
End Sub
Re: macro insert rows
multumesc frumos pentru cod.a mers perfect .a fost un pic mai greu pana mi-am dat seama cum sa il rulez,dar a mers perfect macro-ul.
Re: macro insert rows
Cu placere.
Sa stii ca orice inveti de unul singur se fixeaza mult mai bine decat ce inveti de la altii, asa ca efortul de a intelege cum se ruleaza un macro e deja rasplatit fie si macar numai de satisfactia ca ai putut rezolva aceasta problema.
Sa stii ca orice inveti de unul singur se fixeaza mult mai bine decat ce inveti de la altii, asa ca efortul de a intelege cum se ruleaza un macro e deja rasplatit fie si macar numai de satisfactia ca ai putut rezolva aceasta problema.