MS Excel

Téma: kopirovanie stlpca

Zaslal/a zuzpls 2.3.2011 15:18

Ahojte, mohol by mi prosim vas niekto poradit ako naprogramovat makro?

v exceli na sheete 1 oznacim stlpec, ktory obsahuje cisla, spustim makro, ktore prekopiruje tieto cisla na sheet 2 nasledovne : prvych jedenast cisel zo stlpca z sheetu 1 bude na sheete 2 v bunke A1 napisanych pokope a oddelenych ciarkou a bez medzier, dalsich jedenast cisel bude v A2 atd...

Prosim vas vedel by mi s tym dakto pomoct? vopred dakujem.

Zu

Příloha: zip

4245_priklad.zip (4kB, staženo 13x)

Zaslat odpověď >

Poki(2.3.2011 15:51)citovat#004246

asi takto:
Sub copy()
List2.Columns(1).ClearContents

For i = 2 To Cells(65000, 1).End(xlUp).Row Step 11
rada = ""

For j = 0 To 10
If Len(List1.Cells(i + j, 1)) > 0 Then
rada = rada & List1.Cells(i + j, 1) & ","
End If
Next j

' zapis do listu2
If Len(List2.Cells(1, 1)) = 0 Then
List2.Cells(1, 1) = rada
Else
List2.Cells(List2.Cells(65000, 1).End(xlUp).Row + 1, 1) = rada
End If
Next i
End Sub

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.