Açılış Makrosu

[gertt]

Dosyanın her açılışında farklı bir yazının gelmesini istiyorum.Örneğin;ilk açılışında "Hoş geldiniz",sonraki açılışında "Başarılar dilerim" ,.............vb. başka bir yazı... Döngü bittikten sonra tekrar başa dönmesi.Bunu yapmak mümkün mü?

 

[Recep İpek]

Sıralı şekilde mi? Yoksa rastgele mi?

 

[nsndepo]

merhaba
"Iki sayfa arasında bağlantı kurmak" bu başlık altında bir problem aktardım bir inceleyip cevap verirsen cok makbule geçecek.
syg

 

[Recep İpek]

Ekli dosyayı inceleyiniz.

Sub Auto_Open()
Dim sat
Set s1 = Sheets("bilgi")
    sat = Int(Rnd * (10 - 2) + 2)
    MsgBox s1.Cells(sat, 2).Value
Set s1 = Nothing
End Sub

 

[gertt]

Recep bey,teşekkür ederim.Ancak dosyayı açıp kapattığımda hep aynı cümle geliyor.Dosyanın her açılışında sırayla sıradaki cümlenin gelmesi.Ve bu döngünün devam etmesi.

 

[turan1971]

Sub Autpen()
MsgBox Sheets("bilgi").Range("B2").Value
With Sheets("bilgi")
.Range("B12").Value = Range("B2").Value
.Range("B2").Delete Shift:=xlUp
End With
ActiveWorkbook.Save
End Sub

 

[gertt]

Turan Bey teşekkürler, aradığım buydu.Kolay gelsin.