• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri silme

E

EverQuesT

Katılım
29 Kasım 2004
Mesajlar
69
Merhaba,
Excelde H sütununda veriler mevcut. Aşağıda örneği mevcuttur.
'0010588576000010
'0010795978000010
'0011011227000040
'0011162847000010

H sütununda öyle bir değişiklik yapmalıyım ki
0010588576
0010795978
0011011227
0011162847

Bu hale gelsin.
Yardımlar için teşekkürler.
 
Merhaba

aşağıdaki kodları çalıştırınız

Kod: 
Sub sil()
son = Cells(65000, 8).End(xlUp).Row
For i = 1 To son

Cells(i, 8) = Left(Cells(i, 8), 10)
Next

End Sub
 
Merhaba,

Dosyanızı açın.
ALT+F11 tuşlarına basın.
Açılan ekranda üst menüden INSERT-MODULE seçeneğini seçin.
Sağ tarafta açılan beyaz bölüme kodları uygulayın.

Kodun içinde herhangi bir satır üzerine tıklayıp F5 tuşuna basıp kodu çalıştırın.
 
Merhaba

Ekli dosya olmadığı için Bir şey diyemiyorum.Kodlar sizin 1.mesajda dediğinizi yapıyor.
 
Merhaba

Baştaki 0'ları siliyor diyorsunuz.Kodları yeniden uygulayın.

Sub sil()
son = Cells(65000, 8).End(xlUp).Row
For i = 1 To son

Cells(i, 8) = Format(Left(Cells(i, 8), 10), "@")
Next

End Sub
Genişletmek için tıkla ...
 
Makrosuz olarak metni sütunlara dönüştür'den yapabilirsiniz.
Sabit genişlikli'yi seçerek devam edin, istemediğiniz alanları sütunları içeri aktarma diyerek işlemden çıkarmayı unutmayın.
 
Sayıların başındaki sıfırların fiilen görünmesi için tek tırnak işaretinin olması gerekiyor. Tek tırnak işaretini silerseniz veri sayısal formata dönüşür.

Sıfırları görsel olarak eklemek isterseniz, hücre biçimlendirme menüsünden yapabilirsiniz. Bu durumda hücrenin solunda sıfırlar görsel olarak görünür fakat fiilen sıfırlar eklenmez.

İlk olarak verilerinizi yedekleyin. Daha sonra aşağıdaki işlemi uygulayın. Konuyu daha net anlayacaksınız.

"H" sütununu GENEL olarak biçimlendirip, aşağıdaki kodu çalıştırın.

Kod: 
Sub Veri_Bicimlendir()
    Dim Alan As Range, Hucre As Range, Adres As String, Test As Object, Kontrol As Variant
    
    Application.ScreenUpdating = False
    
    Set Alan = Selection
    Set Test = CreateObject("VbScript.RegExp")
    Test.Pattern = "[^0-9]"
    Test.Global = True
    Kontrol = Test.Replace(Alan.Address, "")
    Adres = Split(Alan.Address, ":")(0) & IIf(Kontrol = "", "$1", "")
    Range(CStr(Adres)).Select
    
    For Each Hucre In Alan
        If Hucre.PrefixCharacter <> vbNullString Then
            DoEvents
            Application.SendKeys "{F2}{HOME}{DELETE}~", True
            Hucre.Value = Format(Left(Hucre.Value, 10), "@")
            Hucre.Select
            DoEvents
        End If
    Next
    
    Set Test = Nothing
    Set Alan = Nothing
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation, "www.excel.web.tr"
End Sub
 
Korhan Ayhan' Alıntı:
Sayıların başındaki sıfırların fiilen görünmesi için tek tırnak işaretinin olması gerekiyor. Tek tırnak işaretini silerseniz veri sayısal formata dönüşür.

Sıfırları görsel olarak eklemek isterseniz, hücre biçimlendirme menüsünden yapabilirsiniz. Bu durumda hücrenin solunda sıfırlar görsel olarak görünür fakat fiilen sıfırlar eklenmez.

İlk olarak verilerinizi yedekleyin. Daha sonra aşağıdaki işlemi uygulayın. Konuyu daha net anlayacaksınız.

"H" sütununu GENEL olarak biçimlendirip, aşağıdaki kodu çalıştırın.

Kod: 
Sub Veri_Bicimlendir()
    Dim Alan As Range, Hucre As Range, Adres As String, Test As Object, Kontrol As Variant
    
    Application.ScreenUpdating = False
    
    Set Alan = Selection
    Set Test = CreateObject("VbScript.RegExp")
    Test.Pattern = "[^0-9]"
    Test.Global = True
    Kontrol = Test.Replace(Alan.Address, "")
    Adres = Split(Alan.Address, ":")(0) & IIf(Kontrol = "", "$1", "")
    Range(CStr(Adres)).Select
    
    For Each Hucre In Alan
        If Hucre.PrefixCharacter <> vbNullString Then
            DoEvents
            Application.SendKeys "{F2}{HOME}{DELETE}~", True
            Hucre.Value = Format(Left(Hucre.Value, 10), "@")
            Hucre.Select
            DoEvents
        End If
    Next
    
    Set Test = Nothing
    Set Alan = Nothing
    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation, "www.excel.web.tr"
End Sub
Genişletmek için tıkla ...
Merhaba,
Tam olarak istediğim aslında şudur
'0010246855000010

bunu 0010246855 olarak değiştirmek istiyorum. Dediğiniz şekilde yaptığımda yine ' işareti kalıyor. Bu veriyi başka bir yere upload edeceğimden dolayı kod karşı tarafta 0010246855 bunu bulmaya çalışacak bu yüzden tam bunu almam lazım. Dönüşünüz için şimdiden teşekkürler.
 
EverQuesT' Alıntı:
Merhaba,
Tam olarak istediğim aslında şudur
'0010246855000010

bunu 0010246855 olarak değiştirmek istiyorum. Dediğiniz şekilde yaptığımda yine ' işareti kalıyor. Bu veriyi başka bir yere upload edeceğimden dolayı kod karşı tarafta 0010246855 bunu bulmaya çalışacak bu yüzden tam bunu almam lazım. Dönüşünüz için şimdiden teşekkürler.
Genişletmek için tıkla ...

Metni sütunlara dönüştürden Sabit genişlik diyin. Sonra 55in yanindan kesin. 55in sagindakileri diğer sütuna atar. Sonra ' ları kaldırmakta basit ama o sayıyı şuan hücreye yazdım 00 siliyo otomatik yani 10246855 oluyo
 
enes309' Alıntı:
Metni sütunlara dönüştürden Sabit genişlik diyin. Sonra 55in yanindan kesin. 55in sagindakileri diğer sütuna atar. Sonra ' ları kaldırmakta basit ama o sayıyı şuan hücreye yazdım 00 siliyo otomatik yani 10246855 oluyo
Genişletmek için tıkla ...

Aynen. Muhasebe programının içerisinde 00 ile başladığı için veriler bu sefer karşılığını bulamıyor sistem. 00larında dahil olması gerekiyor.
 
Verileri sayıya çevirip başındaki apostrof işaretini kaldırın. Muhasebe programıyla eşleştirirken verilerin başına formatlayarak sıfır ekletip kontrol edin.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst