Çözüldü Belirtilen rakamı silme

[Rijon]

Merhaba,

0002,04380
0002,16350

yukarıdaki örnekteki gibi sicil numaları mevcut toplu olarak 0002, silmek istiyorum nasıl yapabilirim?

Yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

İlgili veriler A1 ve A2 hücresinde ise B1 hücresine aşağıdaki formülü uygulayıp deneyiniz. Sonrasında ihtiyacınız kadar aşağı doğru sürüklersiniz.

=YERİNEKOY(A1;"0002,";"")

 

[Rijon]

Merhaba cevabınız için teşekkürler fakat bu formül olmadı resmi kontrol edebilirsiniz.

Ads-z hosted at ImgBB

Image Ads-z hosted on ImgBB

ibb.co

=YERİNEKOY(A1;"0002,";"")

 

[systran]

Bul değiştir denediniz mi? CTRL + H

 

[Rijon]

örnek dosyası yükledim bakabilirsiniz değiştir ile olmuyor.

İndir ORNEK

Dosyayı indir ORNEK

dosya.co

 

[mustafa1205]

Dosyanız Ektedir.İnceleyiniz

İndir ORNEK

Dosyayı indir ORNEK

dosya.co

 

[Rijon]

Hocam yardımınız için teşekkür fakat buda hatalı

0002,15330 çevirdiğiniz rakam > 1533 > 15330 olması gerekiyor.

Dosyanız Ektedir.İnceleyiniz

İndir ORNEK

Dosyayı indir ORNEK

dosya.co

 

[systran]

Sicil numaralarının olduğu sütun veri tipini GENEL olarak ayarlayınca bul/değiştir iş gördü, sizin dosyanız üzerinde denedim.

 

[Rijon]

Genel çevirdiğimde 15330 rakamını 1533 olarak düzeltme yapıyor dikkat ederseniz.

Sicil numaralarının olduğu sütun veri tipini GENEL olarak ayarlayınca bul/değiştir iş gördü, sizin dosyanız üzerinde denedim.

 

[ÖmerBey]

Merhaba,
Makro kullanmak isterseniz deneyiniz...

Sub kod()
s = Cells(Rows.Count, 2).End(3).Row
ReDim dz(1 To s, 1 To 1)
For a = 2 To s
    If Cells(a, "B").Text <> "" Then dz(a - 1, 1) = Split(Replace(Cells(a, "B").Text, ".", ","), ",")(1)
Next
With Range("C2").Resize(UBound(dz))
    .NumberFormat = "@"
    .Value = dz
End With
End Sub

 

[Rijon]

Merhaba hocam, verdiğiniz kod sorunumu çözdü yardımınız için çok teşekkür ederim. Makrosuz daha pratik bir yoldan çözümü varmıdır ?

Merhaba,
Makro kullanmak isterseniz deneyiniz...

Sub kod()
s = Cells(Rows.Count, 2).End(3).Row
ReDim dz(1 To s, 1 To 1)
For a = 2 To s
    If Cells(a, "B").Text <> "" Then dz(a - 1, 1) = Split(Replace(Cells(a, "B").Text, ".", ","), ",")(1)
Next
With Range("C2").Resize(UBound(dz))
    .NumberFormat = "@"
    .Value = dz
End With
End Sub

 

[Biolightant]

Merhaba,
Bunları test edermisiniz.
D2 hücresine =(B2-2)*100000

Eğer boş hücrelerde -200000 gözükmesin derseniz
D2 hücresine =EĞER((B2-2)*100000<0;"";(B2-2)*100000)

 

[Rijon]

Merhaba hocam, bu verdiğiniz formül sorunumu çözdü çok teşekkür ederim.

Merhaba,
Bunları test edermisiniz.
D2 hücresine =(B2-2)*100000

Eğer boş hücrelerde -200000 gözükmesin derseniz
D2 hücresine =EĞER((B2-2)*100000<0;"";(B2-2)*100000)

 

[ÖmerBey]

Sorununuz çözülmüş ama alternatif olarak bulunsun.
İyi çalışmalar...

=YERİNEKOY(METNEÇEVİR(YERİNEKOY(B2;".";",");"0000,00000");"0002,";"")

 

[Korhan Ayhan]

İlk mesajda verdiğiniz örnekte hücrede özel biçimlendirme olduğunu belirtmemişsiniz.

Örnek verdiğiniz veri bu şekilde ama...
0002,16259

Hücredeki asıl veri bu şekilde...
2,16259

Bu durumu bilmediğimiz için doğal olarak verdiğim formül çözüm olmadı.

@ÖmerBey uygun çözümü sunmuş...