sheet güncelleme

[kentish]

Merhaba ,

iş yerinde kullandığım personel bölüm listesi var. Bu listede data kısmında bulunan isimler bölümlere göre sheetlerde de yer almaktadır. Bölümler arası değişiklik olduğunda yani x den y ye bir geçiş olduğunda hem data da değişiklik yapmak zorunda kalıyorum hem de x den silip y ye geçiriyorum.

Bunun yerine sadece data sheetinde yapacağım bir değişikliğin x ve y de kendini güncellemesi mümkün müdür ?

Ekte örnek bir dosya ekledim. özetle data da bulunan mustafa isimli kişi y bölümünde çalışırken x e transfer oldu ben bunu sadece data sheetinde güncelleyeyim ve otomatik olarak x de görünsün y de de mustafa silinsin. Böyle birşey mümkün mü yardımlarınızı rica eerim.

 

[Ömer]

Merhaba,

Sub Dağıt()
Dim Sayfa As Variant
Dim i As Long
Dim j As Long
For i = 2 To Worksheets.Count
    Sheets(i).Range("A2:D65536").ClearContents
Next i
For i = 2 To [A65536].End(3).Row
    Sayfa = Cells(i, "C")
    j = Sheets(Sayfa).[A65536].End(3).Row + 1
    Range("A" & i & ":D" & i).Copy Sheets(Sayfa).Cells(j, "A")
Next
End Sub

.