[Techinfo] Excel sortöbbszörözés

[Kiss Zsolt]

Lehet van jobb, de nekem tökéletes J Megcsináltam így 5 perc alatt ami pár órámba került volna e nélkül J Én sosem tudtam volna megírni J

 

Nagyon szépen köszönöm!

 

Zsolt

 

From: techinfo-bounces at lista.sulinet.hu <techinfo-bounces at lista.sulinet.hu> On Behalf Of Kámán Tibor
Sent: Thursday, August 22, 2019 5:20 PM
To: Techinfo <techinfo at lista.sulinet.hu>
Subject: Re: [Techinfo] Excel sortöbbszörözés

 

Szia!

 

Pont most (tegnap) csináltam hasonlót, picit átalakítottam neked:

 

Sub SorSor()

 

   Oszlop = 9 ' Ezt az oszlopot nézi, hogy hányszor ismételjen  
   SorokSzama = Cells(Rows.Count, Oszlop).End(xlUp).Row
   i = 1
   While i <= SorokSzama
        Db = ActiveSheet.Cells(i, Oszlop).Value

        If Db > 1 Then
              Rows(i).Select
              For j = 1 To Db - 1
                 Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
              Next j
              Rows(i + Db - 1).Select
              Selection.Copy
              For j = 1 To Db - 1
                 Rows(i + j - 1).Select
                 ActiveSheet.Paste
              Next j
              
              SorokSzama = SorokSzama + Db - 1
              i = i + Db - 1
        End If
        i = i + 1
    Wend
End Sub

 

Biztos van jobb is, de jól működik.

 

K. Tibor
 


Kiss Zsolt <rgl at hb.sulinet.hu <mailto:rgl at hb.sulinet.hu> > írta:

Sziasztok!

Makro guruktól kérdezem, mennyire bonyolult lenne egy olyan makrót
összedobni, ami azt csinálja, hogy az I oszlopban lévő szám értéke ha >1,
akkor érték-1 db. sort szúr be ugyanolyan tartalommal, majd megy a következő
sorra. Ha =1, akkor goto next line.

Zsolt

_______________________________________________
Techinfo mailing list
Techinfo at lista.sulinet.hu <mailto:Techinfo at lista.sulinet.hu> 
Fel- és leiratkozás: http://lista.sulinet.hu/cgi-bin/mailman/listinfo/techinfo
Illemtan: http://www.szag.hu/illemtan.html
Ügyfélszolgálat FAQ: http://sulinet.niif.hu/

--------- következő rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: <http://lista.sulinet.hu/pipermail/techinfo/attachments/20190822/9422aae2/attachment.html>