sayfa sekmeleri sıralama

[ysuf1]

Arkadaşlar iki sorum olacak cevaplarınız için şimdiden teşekkürler
1. =G3+270 formülünü diğer hücrelerde geçerli olması için nasıl bir yol izlemeliyim.
(G hüresinde 01.01.02007 tarihi var ve diğer G sutunları bazıları boş bazıları dolu).Formülün yazılı olduğu hücrede sağ alt köşeden aşgıya doğru çekip bırakıyorum G sutununda değer olmayan bümlerde tarih atıyor.26.01.1900 GİBİ.
2.Alttarafta çıkan sayfa sekmelerini otomatik kendi sıralarmı bunun nasıl ayarlarız(sekme150,222,355,422 gibi):arkadas:

 

[Levent Menteşoğlu]

Birinci sorunuz için formülünüzü aşağıdaki gibi düzenleyin.

=$G$3+270

İkinci sorunuz içinde aşağıdaki kodu deneyin.

Sub sirala()
For a = 1 To Sheets.Count
For b = a + 1 To Sheets.Count
deg1 = Evaluate("=UPPER(" & """" & Sheets(b).Name & """" & ")")
deg2 = Evaluate("=UPPER(" & """" & Sheets(a).Name & """" & ")")
If deg1 > deg2 Then GoTo 10
Sheets(b).Move before:=Sheets(a)
10 Next
Next
End Sub

 

[sekondry]

hem sekme rengini koşullandırmak hemde alfabetik sıralamak için ne yapmak gerekir. Şimdiden teşekkürler.