• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excelde Kayan Ekran

klavyem ..... yine kahve döküldü üstüne.... :mrgreen:
 
Hangi Alpen ?

Ben mi, o mu ?
 
sayın esolen tam olarak ne yapmak istiyorsunuz?

4 sütununda kaymasını mı?

Lütfen soru sorarken detaylara önem veriniz.
 
A1; B1; C1; D1; E1; Sutunlarında başlık var
A2; B2; C2; D2; E2; sutunlarında başlayarak 3000. satıra kadar gitsin
bunlar sizin yaptığınız örnekte ki hız ve tasarımdaki gibi kaymasını istiyorum.
isterseniz örnek dosyayı size yollayabilirim .
 
Ufak bir ilave:

Yakışıklı ALPEN'in bu güzel çalışmasında UserForm üzerindeki Label'ın caption özelliğinde, aşağıdaki kırmızı ilaveyi de yaparsanız, kayan yazıların yer aldığı WebBrowser nesnesindeki düşey kaydırma çubuğu görünmez.

Sanki, böyle daha da bir güzel olur gibi geldi de ..... :mrgreen:

[vb:1:e44da5b42a]<html>
<body bgcolor="#FFFFCC" scroll="no"><marquee behavior ............[/vb:1:e44da5b42a]
 
Merhaba,

Ben araya girerek, müsaadenizle ALPEN'in bu güzel çalışmasına renk katması bakımından bir soru sorayım. Veriler aşağıdan yukarıya doğru kayarken UserFormun üzerine bir buton yerleştirip fare ile üzerine gelindiğinde(veya butonsuz da olabilir) kayan yazı duraklasın. Fareyi uzaklaştırdığımızda ise kayan yazı devam etsin. Hani kayan verileri durdurup bakmak gerekirse... Hoş olmaz mı... :D
 
Nadir bey;

Sevgili dostum ALPEN' nin affına sığınarak ..... yukarıda benim ve sizin önerilerinizin yer aldığı versiyon ektedir.

Ben pek anlamam ama, eğer olmamış ise ALPEN arkadaşımız daha sonra bakar herhalde...
 
Sayın: Raider ve Alpen Her ikinizede ayrı ayrı teşekkür ederim. ve diğer destek olan arkadaşlarada;
Sonunda istediğim bilgilere ulaştım.

Aslında ben balık yemeği öğrendim. Keşke Tutmayıda öğrene bilse idim.



Tekrar teşekkürler;
Bursa dan bir isteğiniz olursa heberimiz olsun lütfen!!
 
Rica ederim dostum, işi sen yaptın ..... biz de kenarından maydonoz olduk. :mrgreen:

Burada övgüyü hak eden sensin, tebrik ve teşekkür ederim sana .
 
Sub HareketliYazi()
Dim int1 As Integer, bitir
For int1 = 1 To 20
bitir = Timer + 0.1
Do
Range("A1") = Space(int1) & "suzunkopru"
DoEvents
Loop While Timer < bitir
DoEvents
Next int1
Range("A1") = Empty
End Sub

bu hareketli makroyu kullanmak istiyorum
suzun köprü değilde d2 hücresindeki yazıyı kayarak yazabilirmi
birde devamlı tekrar tekrar yani durmadan yazabilirmi
yazarsanız sevinirim
 
Geri
Üst