Имам 4 колони и искам колона D да се сравява с колона M, а колона E да се сравнява с колона N И ако има еднакви числа да се нулират и всичко да се случва с едно кликане на бутонче в Excel,  но немога да обединя кода. Този със сигурност не работи, по отделно работят но незнам как да ги обединя в едно. Бихте ли ми помогнали?

 

Dim x As Range, y As Range, z As Range, q As Range, de As Range

Set x = Range("D1:D20")
Set y = Range("N1:N20")
Set q = Range("E1:E20")
Set z = Range("M1:M20")
Set de = Range("D1:E20")
de.Select
For Each x In Range("D1:D20")
    For Each y In Range("N1:N20")
        For Each z In Range("E1:E20")
            For Each q In Range("M1:M20")
        If x.Value = y.Value Then
            x.Value = 0
            y.Value = 0
        End If
        
         If z.Value = q.Value Then
            z.Value = 0
            q.Value = 0
        End If
        
            Next q
        Next z
    Next y
Next x

Редактирано 15 май 20179 г. от ExaFlop (преглед на промените)

Ами помисли малко.

Защо всички цикли са вложени един в друг. Правиш проверките една след друга, две по две, но първо единия, после другия.

И защо е това задаване на стойности на Range в началото, а de поне за момента е излишно, а z и q също.

Dim x As Range, y As Range
For Each x In Range("D1:D20")
   For Each y In Range("M1:M20")
        If x.Value = y.Value Then
            x.Value = 0
            y.Value = 0
        End If
 next y
next x

 For Each x In Range("E1:E20")
  For Each y In Range("N1:N20")   
      If x.Value = y.Value Then
        x.Value = 0
        y.Value = 0
      End If
   Next q
 Next z
 

Редактирано 15 май 20179 г. от TRN (преглед на промените)

на 15.05.2017 г. в 8:43, TRN написа:

Ами помисли малко.

Защо всички цикли са вложени един в друг. Правиш проверките една след друга, две по две, но първо единия, после другия.

И защо е това задаване на стойности на Range в началото, а de поне за момента е излишно, а z и q също.

Dim x As Range, y As Range
For Each x In Range("D1:D20")
   For Each y In Range("M1:M20")
        If x.Value = y.Value Then
            x.Value = 0
            y.Value = 0
        End If
 next y
next x

 For Each x In Range("E1:E20")
  For Each y In Range("N1:N20")   
      If x.Value = y.Value Then
        x.Value = 0
        y.Value = 0
      End If
   Next q
 Next z
 

Благодаря много. Не съм писала на Visual Basic, а трябва да направя това и съвсем набързо попрочетох, но ми е трудно. Благодаря, че има хора като вас, които помагат!