Sub Veri_Yenile()
say = 4
For a = 4 To 3810
Range("D" & say).Select
Application.SendKeys "{f2}", True
Application.SendKeys "{ENTER}", True
say = say + 1
Next a
End Sub
İstediğim veri olan hücrelerin formatını değiştirmekti. Bunuda benim bildiğim tek yöntem olan F2 & Enter tuşlarına basarak halletmek. Yukardaki macro ile yapılabileceğini düşünüyordum. Ancak yapılamadı.
SendKeys önündeki Application'u sildim sorunum çözüldü.
Herkesin ilgisine çok teşekkür ederim. Eskiden 10 kişi sorar bir kişi cevaplardı. Ãimdi bir kişi soruyor 10 kişi cevaplıyor. Ne güzel .
Sn. zerige
o değil ama bu olur.
[vb:1:d6949a36af]
Sub Metne_Cevir()
For i = 2 to 3810
Range("D" & i) = Format(Range("D" & i), "@")
Next i
End Sub
[/vb:1:d6949a36af]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.