Hea300 ü ikiye bölmek

[k0081]

merhaba arkadaşlar;

buton yardımı ile A1 hücresindeki veriyi HEA300 ü ikiye nasıl bölebilirim ? elde edeceğim sayı sadece 150 olsun istiyorum.ve başka bir çarpma yada toplama işleminde kullanabileyim..sonucu A5 hücresine yazabilir...

 

[asi_kral]

Merhaba
Veri sabit mi_? Yani = Veriler 6 Karakter mi hep; İlk 3 Karakter Harf sonraki 3 Karakter Rakam şeklinde mi_?
Yada Heaa3000 şeklinde olabilir mi_?

 

[Merhum İdris SERDAR]

merhaba arkadaşlar;

buton yardımı ile A1 hücresindeki veriyi HEA300 ü ikiye nasıl bölebilirim ? elde edeceğim sayı sadece 150 olsun istiyorum.ve başka bir çarpma yada toplama işleminde kullanabileyim..sonucu A5 hücresine yazabilir...

.

Bu KTF'yi kullanın.

Function Numara(hucre)
   Dim i As Integer
   For i = 1 To Len(hucre)
      sayi = Mid(hucre, i, 1)
      If IsNumeric(sayi) = True Then
         Numara = (Numara & sayi) * 1
         
      End If
   Next i
End Function

Örnek:

=Numara(A1)/2

.

 

[k0081]

Merhaba
Veri sabit mi_? Yani = Veriler 6 Karakter mi hep; İlk 3 Karakter Harf sonraki 3 Karakter Rakam şeklinde mi_?
Yada Heaa3000 şeklinde olabilir mi_?

evet hocam veriler sabit. 6 karakter ve ilk üç karakter harf., sonraki üç karakterde sayı hocam..

***************
Yuttaş
bu çözümde işe yaradı hocam teşekkürler..

 

[Korhan Ayhan]

Merhaba,

Uzunluk sabitse aşağıdaki formülüde kullanabilirsiniz.

=SAĞDAN(A1;3)/2

 

[asi_kral]

Merhaba
Buda kodu olsun.

Option Explicit
Sub böl()
Range("A5").Value = Right(Range("A1"), 3) / 2
End Sub

 

[k0081]

asi_kral_1967,
*****

Korhan Ayhan
*****

çok teşekkürler arkadaşlar.. tamamdır..

 

[asi_kral]

asi_kral_1967,
*****

Korhan Ayhan
*****

çok teşekkürler arkadaşlar.. tamamdır..

Kolay Gelsin.