Hocam merhaba. Bir nöbet çizelgem var elimde ve ben örneğin C2 hücresi ile C8 hücresi arasındaki isimleri her hafta 1 sıra aşağıya kayarak döndürmek istiyorum. Örneğin C2 de Ali, C3 de Mehmet, C4 de Hasan var. Döndür ya da Kaydır butonuna bastığımda bu Ali Mehmet'in yerine Mehmet Hasanın yerine geçecek ve C8de ki başa Alinin yerine geçecek. Böyle her hafta bir satır kayacaklar aşağıya. Belki basittir ama çıkamadım işin içinden. bu İsimler her hafta kendi aralarında dönecekler. Bir satır aşağıya kayarak. Yardımcı olursanız sevinirim. İyi çalışmalar.
Private Sub CommandButton1_Click() For i = 2 To 15 temp = Cells(i, 1).Value Cells(i, 1).Value = Cells(i + 1, 1).Value If i = 15 Then Cells(i, 1).Value = temp Exit Sub End If Cells(i + 1, 1).Value = temp Next i End Sub
Burada a2 hücresinden a15 hücresine kadar isimler var ve butona basıldığında a15 deki isim a2 hücresine geçiyor. Bunu butona her bastığında yapıyor. Bunu geliştirip tarih (haftalık vb) yapılabilir.
@@AbdullahKOÇ Hocam çalışıyor. Çok sağolun. 2 sorum daha var. 1) bunu istediğim hücreler için yaoabilir miyiz? mesela a değil de c ya da d hücreleri için? 2) bu döngüde aşaıdan yukarı çıkıyor isimler yukardan aşağıya doğru olsa? bi altına geçse her hücre? mesela a15 a2 ye ? çünkü a15 a2 ye değil a14 e geçiyor. her hücre bu kodla yukarı çıkıyor. Çok teşekkürler.
Hocam merhaba. Bir nöbet çizelgem var elimde ve ben örneğin C2 hücresi ile C8 hücresi arasındaki isimleri her hafta 1 sıra aşağıya kayarak döndürmek istiyorum. Örneğin C2 de Ali, C3 de Mehmet, C4 de Hasan var. Döndür ya da Kaydır butonuna bastığımda bu Ali Mehmet'in yerine Mehmet Hasanın yerine geçecek ve C8de ki başa Alinin yerine geçecek. Böyle her hafta bir satır kayacaklar aşağıya. Belki basittir ama çıkamadım işin içinden. bu İsimler her hafta kendi aralarında dönecekler. Bir satır aşağıya kayarak. Yardımcı olursanız sevinirim. İyi çalışmalar.
Private Sub CommandButton1_Click()
For i = 2 To 15
temp = Cells(i, 1).Value
Cells(i, 1).Value = Cells(i + 1, 1).Value
If i = 15 Then
Cells(i, 1).Value = temp
Exit Sub
End If
Cells(i + 1, 1).Value = temp
Next i
End Sub
Bu kodu bir tane activex butonu ekle ve içine yaz. Yalnız önce bir yedek al.
Burada a2 hücresinden a15 hücresine kadar isimler var ve butona basıldığında a15 deki isim a2 hücresine geçiyor. Bunu butona her bastığında yapıyor. Bunu geliştirip tarih (haftalık vb) yapılabilir.
@@AbdullahKOÇ deneyip size döneceğim. Elinize sağlık hocam ilginiz yeter
@@AbdullahKOÇ Hocam çalışıyor. Çok sağolun. 2 sorum daha var. 1) bunu istediğim hücreler için yaoabilir miyiz? mesela a değil de c ya da d hücreleri için?
2) bu döngüde aşaıdan yukarı çıkıyor isimler yukardan aşağıya doğru olsa? bi altına geçse her hücre? mesela a15 a2 ye ? çünkü a15 a2 ye değil a14 e geçiyor. her hücre bu kodla yukarı çıkıyor. Çok teşekkürler.