Re: Prośba o pomoc - 2 skrypty Excel - Article 104140 - go-pugleaf

Article View: pl.comp.lang.vbasic

Article #104140

Back to pl.comp.lang.vbasic Previous Next

Re: Prośba o pomoc - 2 skrypty Excel

#104140

From: Jacek
Date: Sat, 16 May 2009 03:25

17 lines
1249 bytes

Ad. 1.
Sub qq()
'Twoj X, to A:A, a Y to B:B
n = 0
x = 1
y = 1
Sheets("Dane").Select
While Cells(x, 1) <> ""
  If Cells(x, 1) = n Then
    Sheets("Wynik").Cells(y, 1) = Cells(x, 1)
    Sheets("Wynik").Cells(y, 2) = Cells(x, 2)
    n = n + 1
    y = y + 1
  End If
  x = x + 1
Wend
End Sub

Technical Details

Message-ID: <1oqgpb0m5rb1r$.2rnkyi97d8zh$.dlg@40tude.net>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.internetia.pl!not-for-mail

References: <guk1kp$2pbv$6@opal.icpnet.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.internetia.pl!not-for-mail
From: Jacek <ala@ola.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Prośba o pomoc - 2 skrypty Excel
Date: Sat, 16 May 2009 05:25:21 +0200
Organization: Netia S.A.
Lines: 17
Message-ID: <1oqgpb0m5rb1r$.2rnkyi97d8zh$.dlg@40tude.net>
References: <guk1kp$2pbv$6@opal.icpnet.pl>
NNTP-Posting-Host: 77-253-131-252.adsl.inetia.pl
Mime-Version: 1.0
X-Trace: mx1.internetia.pl 1242444929 12348 77.253.131.252 (16 May 2009 03:35:29 GMT)
X-Complaints-To: abuse@inetia.pl
NNTP-Posting-Date: Sat, 16 May 2009 03:35:29 +0000 (UTC)
X-Tech-Contact: usenet@internetia.pl
X-Antivirus-Status: Clean
X-Antivirus: avast! (VPS 090515-0, 2009-05-15), Outbound message
User-Agent: 40tude_Dialog/2.0.15.1pl
X-Server-Info: http://www.internetia.pl/news/
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit

Reply to Parent Message