Am urmatoarea situatie:
Intr-un fisier excel, am scris un cod:
Cod: Selectaţi tot
Sub Soultanov()
Dim i As Long
For i = 1 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If ActiveSheet.Cells(i, 2) = "A.B.C." Then
ActiveSheet.Range("AB" & i) = "CMC79"
End If
Next i
Merge perfect.
Apoi am recopiat acelasi cod pt alt text pe aceeasi coloana.La fel, merge perfect.
Problema apare cand la cod adaug un nou rand care ar trebui ca atunci cand scrie pe coloana AB ce are de scris, sa copieze acel text si pe urmatoarele 6 randuri, adica daca in coloana 2 gaseste A.B.C. pe randul7, el sa scrie CMC79 in AB7 pana in AB13, apoi continua cautarea pe coloana 2
Noul rand de cod scris inainte de End If este:
Cod: Selectaţi tot
Range ("AB" & i).AutoFill Range("AB&i:AB" & Range("AB" &i+6 Rows.Count).End(xlUp).Row)
Nu imi dau seama unde gresesc.
Ma puteti ajuta va rog?