- Katılım
- 20 Ekim 2005
- Mesajlar
- 301
- Excel Vers. ve Dili
- excel 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 28/06/2023
Merhaba arkadaşlar sitede kayan yazı ile ilgili çok örenk var ve birtanesi şu kodla çalışıyor .Ama sadece A1 Hücresinde kayan yazı şeklinde nasıl bir değişiklik yaparak istediğimiz bir hücrede yazdırabiliriz örneğin B35 de yada C25 gibi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Single
Dim ilk, son, veri As String
Do While (True)
DoEvents
ilk = Left(Cells(1, 1), 1)
son = Mid(Cells(1, 1).Value, 2, Len(Cells(1, 1).Value) - 1)
Cells(1, 1).Value = son + ilk
For i = 1 To 12000000
Next i
veri = Cells(1, 1).Value
Loop
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Single
Dim ilk, son, veri As String
Do While (True)
DoEvents
ilk = Left(Cells(1, 1), 1)
son = Mid(Cells(1, 1).Value, 2, Len(Cells(1, 1).Value) - 1)
Cells(1, 1).Value = son + ilk
For i = 1 To 12000000
Next i
veri = Cells(1, 1).Value
Loop
End Sub
