Copiere automata in functie de o conditie

[viorel33]

Buna ziua. In fisierul atasat am un tabel simplu. Exista posibilitatea ca doar atunci cand C3:L4 din Foaie1 este identic cu C3:L4 din Sheet1 sa copieze automat datele din C7:L7 Sheet1 C7:L7 Foaie1?

[IPP]

Buna ziua

Atasat aveti spre testare o propunere folosind macro.
Obiectiv: scrierea informatiei din Sheet1, range C7:L7 in acelasi range din Foaie1 daca in cele doua foi informatia din range C3:L4 este identica. Atentie, prin identica inseamna inclusive case sensitive (adica C=C; C<>c)

Am folosit urmatorul cod:

Cod: Selectaţi tot

Sub CopyExact()

'IPP - 17.12.2017

Dim i As Integer, j As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For i = 3 To 4
 For j = 3 To 12
  If Sheets("Foaie1").Cells(i, j).Value <> Sheets("Sheet1").Cells(i, j).Value Then
     GoTo endSub
  End If
 Next j
Next i

Sheets("Foaie1").Range("C7:L7").Value = Sheets("Sheet1").Range("C7:L7").Value

endSub:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Pentru testare: deschideti fisierul atasat, activati macro/continutul si rulati macro (eventual de la butonul albastru din Sheet1)

IP

[viorel33]

Multumesc. Funcioneaza dupa cum ati spus doar daca tabelele sunt identice si asezate la fel in cele doua foi.