metin biçimlendirme

[kirazayşe]

Merhaba,
ekteki listede vergi kimlik numaralarında sarı olanlar internet vergi dairesinden gönderirken hata veriyor. Bir üstteki hatasız hücreyi aşağıya kopyalayıp doğru VKN giriyorum. Yine biçimlendirme bozuluyor. Hücre biçimlendirme den de olmuyor.
Yardımcı olabilir misinizi?
Teşekkür ederim.

 

[Merhum İdris SERDAR]

.

G sütununu seçin ve aşağıdaki kodu çalıştırın.

Sub metin()

 For Each hcr In Selection
  If Not hcr.HasFormula Then
   hcr.Value = Chr(39) & hcr.Value
   hcr.NumberFormat = "@"
  End If
 Next hcr
 
End Sub

.

 

[kirazayşe]

İngilizce olunca anlayamadım..

 

[Merhum İdris SERDAR]

.

ALT F11' e basın. Bir modül ekleyin ve bu kodları bu modüleye yapıştırın.

Sonra dediğim gibi ilgili yeri seçip bu makroyu çalıştırın.

.