Copiere automata in functie de o conditie
Copiere automata in functie de o conditie
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?
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Copiere automata in functie de o conditie
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:
Pentru testare: deschideti fisierul atasat, activati macro/continutul si rulati macro (eventual de la butonul albastru din Sheet1)
IP
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
IP
Nu aveţi permisiunea de a vizualiza fişierele ataşate acestui mesaj.
Re: Copiere automata in functie de o conditie
Multumesc. Funcioneaza dupa cum ati spus doar daca tabelele sunt identice si asezate la fel in cele doua foi.