Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-08-2017, 11:24   #1
anti_uho
 
Giriş: 11/08/2017
Şehir: İstanbul
Mesaj: 1
Excel Vers. ve Dili:
Türkçe - Excel 2010
Varsayılan VBA hücredeki son haneyi sildirme

Merhaba bu gün sizlerden benim için son derece önemli bir konu için yardım isteyeceğim.

Tam iki gün boyunca bir silme işlemiyle uğraşıyorum. Nasıl yani derseniz:

Hücrelere girilen sayılar sil buttonuna tıklanınca hücreye girilen sayının son hanesi silinecek.

Örn:

12345 ---> Temizle buttonuna tıklandı ---> 1234
1254645434 ---> Temizle buttonuna tıklandı ---> 125464543

Sürüm: Türkçe - 2010

not: userformda değil
anti_uho Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 11:33   #2
matematikferhat
 
Giriş: 03/04/2013
Mesaj: 2
Excel Vers. ve Dili:
2010 Tr
Varsayılan

Macro ile yapmak istiyorsunuz sanırım.
İsteğinize göre düzenleyin.
Mid komutunu araştırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dim hucre As String
hucre = Range("A1").Value
Range("A2").Value = Mid(hucre, 1, Len(hucre) - 1)
matematikferhat Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 12:00   #3
esalci
 
Giriş: 08/08/2017
Şehir: İstanbul
Mesaj: 34
Excel Vers. ve Dili:
Office 365 ProPlus İngilizce
Varsayılan

Alternatif olarak aşağıdaki kodu sil butonuna atadıktan sonra silmek istediğin hücreleri seçip butona basabilirsin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SeciliHucreler()

    Dim cel As Range
    Dim selectedRange As Range
    Set selectedRange = Application.Selection

    For Each cel In selectedRange.Cells
            cel.Value = Left(cel.Value, Len(cel.Value) - 1)
    Next cel

End Sub
esalci Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 15:23


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden