GoldenLine
Zaloguj się
Krystian Widźgowski

Krystian Widźgowski Kierownik działu IT,
Bonkowski Sp. z o.
o.

Temat: Pętla sprawdzająca zawartość komórki - Makro Exel

Witam serdecznie,
to mój pierwszy temat i mam nadzieję, że w dobrym dziale. Chciałbym stworzyć formułę w exelu, która sprawdzi całą kolumnę B i w wypadku gdy w komórce znajduje się jakaś liczba skopiuje dwie inne komórki z kolumny A i M odpowiednio do kolumny U i W.

Coś takiego znalazłem w internecie:

Sub Procedura()

MsgBox ("Wykonano zadanie")

Dim i As Integer
For i = 1 To 400

If Calls("i, 2") = 0 Then
Calls("i, 16") = ""
Else
Calls("i, 17") = Range("i, 8")
End If
If Calls("i, 8") <> 0 Then
Calls("i, 16") = Calls("i, 1")
End If

Next i

End Sub
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Pętla sprawdzająca zawartość komórki - Makro Exel

Krystian W.:
Chciałbym stworzyć formułę w exelu,

Jaką formułę, skoro przedstawiasz nam kod VBA, który przedstawia pętlę w 2ma warunkami.

p.s.
Zakres Range wyraża sie w wyrazie oznaczającym granicę zakresu słowem np "a1" albo "a1:a2" np:
range("a1:a140")

Komorkę cells wyraża się przez podanie wiersza i kolumny (wiersz to liczba, a kolumna to liczba lub litera wyrażona stringiem (j.w słowem)
cells(1,"a") lub cells(1,1) 'co jest tym samym

zakres oparty na komórkach
range(cells(1,1),cells(400,1))


Już wiesz gdzie masz błąd?
Link do wypowiedziLink
Krystian Widźgowski

Krystian Widźgowski Kierownik działu IT,
Bonkowski Sp. z o.
o.

Temat: Pętla sprawdzająca zawartość komórki - Makro Exel

Serdecznie dziękuje za pomoc, po wyjaśnieniu podstaw naprawiłem kod VBA.

Sub Makro1()

Dim i As Integer

For i = 1 To 7
If Cells(i, "B").Value = "" Then
Cells(i, "G").Value = ""
Cells(i, "H").Value = ""
Else
Cells(i, "G").Value = Cells(i, "A").Value
Cells(i, "H").Value = Cells(i, "D").Value
End If

Next i

End Sub

Może kiedyś komuś się przyda ;)
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj