vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest niedziela, 20 czerwca 2021 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

Warunek IF w tabeli oraz Kopiuj wklej VBA


otwartyotwarty rozpoczął: Mar7872 postów: 2



napisał: admin
postów: 603


umieszczony:
26 listopada 2020
07:12

  
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
Reklama
napisał: Mar7872
postów: 1


umieszczony:
23 listopada 2020
20:41

  
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


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z