Re: makro w excelu - Grupy dyskusyjne w eGospodarka.pl

eGospodarka.pl › Grupy › pl.sci.inzynieria › makro w excelu › Re: makro w excelu

Path: news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed
.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail
From: "SUPszon" <k...@o...pl>
Newsgroups: pl.sci.inzynieria
Subject: Re: makro w excelu
Date: Tue, 5 May 2009 23:36:37 +0200
Organization: TP - http://www.tp.pl/
Lines: 36
Message-ID: <gtqc37$kq8$1@nemesis.news.neostrada.pl>
References: <gtplog$4pm$1@atlantis.news.neostrada.pl>
NNTP-Posting-Host: djy54.neoplus.adsl.tpnet.pl
Mime-Version: 1.0
Content-Type: text/plain; format=flowed; charset="iso-8859-2"; reply-type=response
Content-Transfer-Encoding: 7bit
X-Trace: nemesis.news.neostrada.pl 1241559975 21320 83.24.2.54 (5 May 2009 21:46:15
GMT)
X-Complaints-To: u...@n...neostrada.pl
NNTP-Posting-Date: Tue, 5 May 2009 21:46:15 +0000 (UTC)
In-Reply-To: <gtplog$4pm$1@atlantis.news.neostrada.pl>
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Windows Mail 6.0.6001.18000
X-MimeOLE: Produced By Microsoft MimeOLE V6.0.6001.18049
Xref: news-archive.icm.edu.pl pl.sci.inzynieria:23943
[ ukryj nagłówki ]
Udalo mi sie rozwiazac problem samodzielnie:

Dim i, k, r, deltap, deltaVU, VU, P As Double
deltaVU = Sheets("QDEK3").Range("R19")
deltap = Sheets("QDEK3").Range("R13")
Sheets("QDEK3").Range("S17").Copy Sheets("Arkusz1").Range("C5")
Sheets("QDEK3").Range("S11").Copy Sheets("Arkusz1").Range("C6")
VU = Sheets("Arkusz1").Range("C5")
P = Sheets("Arkusz1").Range("C6")
r = 1310
For i = 1 To 26
'to jest petla od pojemnosci zbiornika
For k = 1 To 11
Sheets("Arkusz1").Range("C5").Copy Cells(r, 8)
Sheets("Arkusz1").Range("C6").Copy Cells(r, 9)
'gwarancja czasowa
Cells(r, 10) = Cells(6, 16).Value
'KIR
Cells(r, 11) = Sheets("Arkusz1").Range("B16").Value
'KER
Cells(r, 12) = Sheets("Arkusz1").Range("B22").Value
'KIZ
Cells(r, 13) = Sheets("Arkusz1").Range("B31").Value
'KEZ
Cells(r, 14) = Sheets("Arkusz1").Range("B32").Value
P = Sheets("Arkusz1").Range("C6")
P = P + deltap
Sheets("Arkusz1").Range("C6").Select
ActiveCell.FormulaR1C1 = P
r = r + 1
Next k
r = r + 1
VU = VU + deltaVU
Sheets("Arkusz1").Range("C5").Select
ActiveCell.FormulaR1C1 = VU
Sheets("QDEK3").Range("S11").Copy Sheets("Arkusz1").Rang