Makro ile vardiya listesi hazırlama

[puslukurt]

Merhabalar;
personel için vardiya listesi hazırladım bunu her hafta el ile yapmaktansa makro ile çevirmenin mantıklı olabileceğini düşünerek sizlerden yardım istiyorum şöyleki vardiya sayfamda;
b3:b17 arası 15 kişi
c3:c17 arası 15 kişi
d3:d17 arası 15 kişi bulunuyor

bir tane makro atamak için düğme ye bastığımda ( b3:b17 arası 15 kişi ) komple d3:d17 arasına; (c3:c17 arası 15 kişi )komple b3:b17 arasına ; (d3:d17 arası 15 kişi) de komple c3:c17 arasına aktarması gerekiyor bu yapılacak makro her çalıştığında bu döngü devam etmesi gerekiyor.

 

[alicimri]

Aşağıdaki kodu deneyin.

S
Sub cevir()
Rng = Range("D3:D18")
Range("B3:B18").Copy Range("D3")
Range("B3:B18").Value = Rng
Rng = Range("C3:C18")
Range("D3:D18").Copy Range("C3")
Range("D3:D18").Value = Rng
End Sub

 

[DoğanD]

Merhaba,

Aşağıdaki kodu deneyebilirsiniz. Ayrıca, bu tip tekrarlı ihtiyaçlarınız için Excel Makro Kaydet özelliğini araştırabilirsiniz. Eminim işinize yarayacaktır.

Range("B3:B17").Select
Selection.Cut
Range("E3").Select
Selection.Insert Shift:=xlToRight

 

[puslukurt]

Sayın alicimri bey
Sayın DoğanD bey
çok teşekkür ederim verdiğiniz biligler için kodlar çalışıyor işim görüldü.