Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-06-2017, 16:31   #1
Tevfik_Kursun
Altın Üye
 
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,118
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan soldan, sağdan, parçaal fonksiyonlarının makro karşılıkları

Merhaba Arkadaşlar,
soldan, sağdan, parçaal fonksiyonlarının makro karşılıkları ile ilgili örnekleri nerede bulabilirim.
Saygılarımla
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 16:35   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,329
Excel Vers. ve Dili:
2010-2016
Varsayılan

a1=Kalemlik olsun.
Soldan için left(range("a1"),2) sonuç=ka
Sağdan için right(range("a1"),2) sonuç=ik
Parçaal için mid(range("a1"),2,5) sonuç=alem
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 17:05   #3
Tevfik_Kursun
Altın Üye
 
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,118
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

Sayın Askm,
Çok teşekkür ederim.
Hemen deneyeceğim.
Saygılarımla
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 17:34   #4
Tevfik_Kursun
Altın Üye
 
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,118
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

Sayın Askm,
Ekli dosyada. Hücrede ne varsa onun içinden almak istiyorum.
Yardımcı olursanız sevinirim.
Saygılarımla
Eklenmiş Dosyalar
Dosya Türü: xlsm Ornek80.xlsm (20.6 KB, 10 Görüntülenme)

Bu mesaj en son " 19-06-2017 " tarihinde saat 18:12 itibariyle Tevfik_Kursun tarafından düzenlenmiştir.... Neden: yanlışlıkla oluşmuş dosyadaki hata düzeltildi
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 21:15   #5
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,329
Excel Vers. ve Dili:
2010-2016
Varsayılan

Hücrelerde üçgen verileri mevcut. Bunlar içerisinden şu hücreden şu verileri al yazarsanız. Yardımcı olmaya çalışayım.
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-06-2017, 22:09   #6
Tevfik_Kursun
Altın Üye
 
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,118
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

Merhaba sayın Hocam,
İlginize teşekkür ederim. Fark ettiğiniz üzere konu geometri ve indisli ifadeler. E8 e diğer sayfadan kopyalarak getiriyorum, değişiklik olmuyor. E8 de E10 a ilk 40 karakteri alırken düz yazı halinde geliyor. Halbuki o arada indisli karakterler var. Onları olduğu gibi almasını bekliyorum.
Saygılarımla
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 07:49   #7
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,329
Excel Vers. ve Dili:
2010-2016
Varsayılan

Sayın Tevfik Bey aşağıdaki şekilde çözüm olur sanırım. Yalnız sürekli 40 karakter olmuyor almak istediğiniz. Belli bir kelime ya da farklı 2 kelime ayrım noktası ise split komutu da işinizi görecektir. Parça almak için.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Soldan_Al()
    ActiveSheet.Range("E10").ClearContents
    [E10] = Left(Range("E8"), 40)
    Call askm
End Sub

Sub askm()
For i = 1 To 40
    If Range("E8").Characters(Start:=i, Length:=1).Font.Name = "Symbol" Then
        Range("E10").Characters(Start:=i, Length:=1).Font.Name = "Symbol"
    End If
    If Range("E8").Characters(Start:=i, Length:=1).Font.Subscript = True Then
        Range("E10").Characters(Start:=i, Length:=1).Font.Subscript = True
    End If
Next
End Sub
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 17:02   #8
Tevfik_Kursun
Altın Üye
 
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,118
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

Merhaba sayın Hocam,
İlginize teşekkür ederim. 40 afaki idi. Onu değer olarak hesaplatıp hücreden aldıracağım.
Sagdan_Al zaten aynı Left yerine Right getirerek ve Parçaal da sanırım [E10]=mid(range("E8"),15,10) şeklinde yaparak çalıştırdım. Sadece Soldan_Al düzgün çalıştı, diğerleri çalışmadı.
Saygılarımla
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 22:12   #9
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,329
Excel Vers. ve Dili:
2010-2016
Varsayılan

Değer olarak nasil hesaplanıyorsunuz.Split işe yarayabilir.
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-06-2017, 23:04   #10
Tevfik_Kursun
Altın Üye
 
Giriş: 29/07/2012
Şehir: Antakya
Mesaj: 1,118
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

Haklısınız Sayın Hocam,
Çözdüm, çok güzel çalışıyor. Başta (Dim) açmamışım, (integer) olarak belirleyince tam istediğim gibi oldu. Şimdi bitirdim, sizinle paylaşayım istedim. 23:12 deki yazınızı da şimdi gördüm.
Çok teşekkür ederim.
Saygılarımla
Tevfik_Kursun Ç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 03:32


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Hurda - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- 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- Çorlu İnşaat- Marmara Ereğlisi Yurt- Çorlu Solucan Gübresi- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden