Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 05-02-2010, 10:24   #11
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
HAKANP tarafından gönderildi Mesajı Görüntüle
sanırım soru yanlış anlaşılmış. Ben Textbox ların içini değil kendilerini temizlemek istiyorum. Excel sayfasında 1000 tane textbox var. Ben hepsini temizlemek istiyorum
Yani textboxları silmek,kaldırmak istiyorsunuz,öylemi?
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-02-2010, 10:38   #12
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Aşağıdaki kodlar aktif sayfadaki tüm textboxları siler.Kladırıı.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub txt_sil()
say = ActiveSheet.Shapes.Count
For i = say To 1 Step -1
    If Left(ActiveSheet.Shapes(i).Name, 7) = "TextBox" Then
       ActiveSheet.Shapes(i).Select
       Selection.Delete
    End If
Next
End Sub
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-02-2010, 16:44   #13
HAKANP
 
Giriş: 17/04/2006
Mesaj: 228
Varsayılan

Cevap yok mu
HAKANP Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-02-2010, 17:02   #14
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,612
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
HAKANP tarafından gönderildi Mesajı Görüntüle
Cevap yok mu
Cevap var.
12nci mesajda verdim.
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-02-2010, 01:44   #15
HAKANP
 
Giriş: 17/04/2006
Mesaj: 228
Varsayılan

Çok zor mu acaba ?
HAKANP Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-02-2010, 19:09   #16
HAKANP
 
Giriş: 17/04/2006
Mesaj: 228
Varsayılan

Cok zor muydu yaw
HAKANP Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-01-2014, 13:22   #17
selimcengizince
 
Giriş: 03/10/2013
Şehir: nevşehir
Mesaj: 39
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan Excel sayfasındaki TextBoxları temizle, textbox sil, textbox temizle,

Alıntı:
Orion1 tarafından gönderildi Mesajı Görüntüle

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
say = ActiveSheet.Shapes.Count
On Error Resume Next
For i = 1 To say
    If TypeName(ActiveSheet.Shapes(i).OLEFormat.Object.Object) = "TextBox" Then
        ActiveSheet.Shapes(i).OLEFormat.Object.Object = ""
    End If
Next

Teşekkürler. 2 saattir arıyorum, bir çok konuyu inceledim..Userformdaki Textboxları temizlemek için kod çok..Excel sayfasındaki textboxlar için bir tek bunu bulabildim..Eline sağlık..
selimcengizince Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-01-2014, 13:43   #18
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,860
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Bu da alternatif olsun;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Sayfadaki_TextBoxların_İçini_Temizle()
    Dim Text As OLEObject
    For Each Text In ActiveSheet.OLEObjects
        If TypeName(Text.Object) = "TextBox" Then
            Text.Object.Value = Empty
        End If
    Next
    Set Text = Nothing
End Sub
__________________
Excel'e dair her şey; excelarsivi.com 'da..
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 16:12   #19
Usyk
 
Giriş: 20/07/2006
Şehir: Ankara
Mesaj: 93
Varsayılan

Bu konunun tam tersi de mümkün o zaman. Şarta bağlı textbox da ekleyebiliriz yani.
__________________
Excell 2010 Tr
Usyk Çevrimiçi   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 07:51


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- 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- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden