Witam,
co to jest "Zapytanie1"? Arkusz Excela?
Jeśli tak, to:
Sub WarunekIF()
Dim row As Long
With Worksheets("Zapytanie1")
For row = 1 To .Cells(.Rows.Count, 5).End(xlUp).row
If .Cells(row, 5).Value = 1 Then .Cells(row, 1).Value = .Cells(row, 2).Value
Next row
End With
End Sub
pozdrawiam
admin
Cytat:Witam
Proszę po pomoc w stworzeniu poniższego makra.Wyjasnienie w kodzie
Dim cell As Range
For Each cell In Range("Zapytanie1[Kolumna5]")
If cell.Value =1 then
'kopiuj komórkę z Kolumny2 i wklej ja do Kolumny1. wszystko w tym samym wierszu w którym aktualnie jest sprawdzany warunek. Jeśli komórka nie spełnia warunku to pozostaw bez zmian i Przejdź do następnego wiersza.
End If
Next cell
Dziękuję za pomoc |