napisał: Trebor
postów: 1209
 umieszczony:
18 marca 2012
19:04
|
|
Z całą pewnością można by tylko odpowiedzieć sprawdzając Twój plik.
Zwróć uwagę, że masz warunek Select Case Cells(i + 1, 32) co oznacza, że za każdym obrotem pętli wybór podejmowany jest na podstawie innej komórki (od AF5, przez AF6 do AF32) |
|
|
napisał: jarzombas
postów: 6
umieszczony:
18 marca 2012
14:28
|
|
Witam
mam problem z poniższym makrem warunkowym. Chciałbym aby po wpisaniu w komórkę AF5 liczb od 3 do 8 makro importowało mi odpowiednią kolumnę z pliku który wskaże. Czyli na przykład jak w komórce AF5 jest 4 to chciałbym aby zaimportowane były kolumny L4 do 31 i AA4 do 31. Tymczasem kopiuje mi tylko pierwsza komórkę z L4 i AA4 a potem przesuwa mi import z L5 na K5 i AA5 na Z5. Niestety nie wiem dlaczego
Proszę o pomoc
Z góry dziękuje
[Sub import()
Dim caly As String, plik As String, sciezka As String, arkusz As String, i As Byte
arkusz = "D_Kolor_OK"
'D_Kolor_OK
caly = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If caly = "" Then Exit Sub
plik = Dir(caly)
sciezka = Left(caly, Len(caly) - Len(plik))
For i = 4 To 31
Select Case Cells(i + 1, 32)
Case Is = 8
Cells(i + 7, 2) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!B" & i
Cells(i + 7, 3) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!J" & i
Cells(i + 7, 4) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!Y" & i
Case Is = 7
Cells(i + 7, 2) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!B" & i
Cells(i + 7, 3) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!K" & i
Cells(i + 7, 4) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!Z" & i
Case Is = 6
Cells(i + 7, 2) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!B" & i
Cells(i + 7, 3) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!K" & i
Cells(i + 7, 4) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!Z" & i
Case Is = 5
Cells(i + 7, 2) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!B" & i
Cells(i + 7, 3) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!L" & i
Cells(i + 7, 4) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!AA" & i
Case Is = 4
Cells(i + 7, 2) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!B" & i
Cells(i + 7, 3) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!L" & i
Cells(i + 7, 4) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!AA" & i
Case Is = 3
Cells(i + 7, 2) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!B" & i
Cells(i + 7, 3) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!M" & i
Cells(i + 7, 4) = "='" & sciezka & "[" & plik & "]" & arkusz & "'!AB" & i
End Select
Next i
MsgBox ("Dane zaimportowane")
End Sub] |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
