DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayın ejder72,web den aldığım bir tabloda
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$a$4")) Is Nothing Then Exit Sub
format
End Sub
Sub format()
Range("A4").Select
Selection.NumberFormat = "@"
End Sub
_________________Dosyanızda sadece web'den alınan değerler bulunmakta.Web sitesinin adresini yazarsanız deneyerek sorunu çözmeye çalışalım..
Yada dosyanızı Verialdığınız web adresini ekliyerek takrar ataçlayın..
İsterseniz şunu bir deneyin..
Sayfa1 üzerinde sağ tuşu tıklıyarak aşağıdaki kodları yazın..
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$a$4")) Is Nothing Then Exit Sub
format
End Sub
Daha sonra boş bir modüle
Kod:
Sub format()
Range("A4").Select
Selection.NumberFormat = "@"
End Sub
Bir deneyin bakalım..Ben deneyemedim çünkü Veri alınacak web adresi yok.