napisał: Trebor
postów: 616
 umieszczony:
29 stycznia 2010
18:47
|
|
| Zmień deklarację na Dim kol As Integer
Jeśli jeszcze dodatkowo pozbędziesz się selectów to będzie niezły początek.
Hej |
|
|
Reklama
 |
|
napisał: mzwolin
postów: 1
umieszczony:
29 stycznia 2010
14:32
|
|
Witam Koledzy Napisałem makro i mam maly problem z Cell (8,kol).Chciałbym żeby zmieniały się kolumny w prawo czyli kol,kol+1 ,... w oparciu o pętle i kopiowało się w inne miejsce np (Cell,kol+20), kol+21 itd... ale mam problem z początkiem czyli pobraniem danych i wklejeniem w BC8.Proszę o pomoc.
kol to kolumna 30
Poniżej moje makro :
Sheets("produkt").Select
Dim kol As String
kol = 30
Do Until Cells(6, kol + 1) = "Suma XYZ"
Cells(8, kol).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("BC8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cells(6, 66).Select
kol = kol + 1
Loop
End Sub |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
