Excel Forum
 
 

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

DUYURU SİSTEMİ

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 02-06-2005, 12:12   #1
excelman
 
Giriş: 03/09/2004
Mesaj: 174
Excel Vers. ve Dili:
Excel-2002 Türkçe
Varsayılan Parça Al Formülü

Merhabalar;

B sutunumda ürünlerin listesi var.Ürün Açıklamalarının sonunda ürün kodu yazıyor.Ben bu ürün kodlarını C sütununa yazdırmak istiyorum.
Ã?rnek;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
B2 satırı = Kahve Kreması K.026 iken C2 satırına Sadece 026 yazmasını istiyorum.
Açıklamaların uzunlukları değiştiği için normal parçaal metodu ile yapamadım.Başka bir yolu varsa yardımcı olursanız sevinirim.
__________________
Excel-2007 Türkçe
excelman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-06-2005, 12:20   #2
isakarakus
 
Giriş: 03/03/2005
Şehir: Mersin/Tarsus
Mesaj: 576
Excel Vers. ve Dili:
Excel 2000 Ing.
Varsayılan

ing,

=RIGHT(B2;3)

türkçede,
=SAÐDAN(B2;3)
olacaktı galiba
isakarakus Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-06-2005, 13:19   #3
excelman
 
Giriş: 03/09/2004
Mesaj: 174
Excel Vers. ve Dili:
Excel-2002 Türkçe
Varsayılan

Sayın isakarakus cavabınız için teşekkür ederim ama ben bu yolu da denemiştim.
Kod kısmının uzunluğu değişiyor yani bazıları 6 haneli bazıları 8 haneli upuzun bir listede bu formülleri tek tek olusturmak baya zaman alır.Þöyle bir şey olabilirmi acaba formülü K. ya dayandırarak K.dan sonraki rakamları alabilirmiyiz?
__________________
Excel-2007 Türkçe
excelman Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-06-2005, 13:38   #4
red_lion_72
 
red_lion_72 kullanıcısının avatarı
 
Giriş: 08/07/2004
Şehir: istanbul
Mesaj: 254
Excel Vers. ve Dili:
office 2007-mssql 2008 R2
Varsayılan

selam,

=PARÇAAL(b2;BUL("K.";b2;1)+1;UZUNLUK(b2)-BUL("K.";b2;1))

bunu denermisiniz?

kolay gelsin.

Ayrıca formülleri tek tek oluşturmayın, en üsttekini yazdıktan sonra aşağıya kadar kopyalayın.
__________________
Zekasız kuvvet yıkabilir ama yapamaz...C.Şahabeddin
Asla herşeyi bildiğini sanma. Gerçekten çok bilgili olsan da "ben cahilim" diyebilecek cesaretin daima olsun. Ivan Pavlov
red_lion_72 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-06-2005, 13:40   #5
isakarakus
 
Giriş: 03/03/2005
Şehir: Mersin/Tarsus
Mesaj: 576
Excel Vers. ve Dili:
Excel 2000 Ing.
Varsayılan

merhaba,
bu formul işe yaradı
ama ing..

=MID(B4;FIND("K.";B4;1)+2;LEN(B4))
isakarakus Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-06-2005, 13:41   #6
Haluk
 
Haluk kullanıcısının avatarı
 
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,770
Excel Vers. ve Dili:
Office 2000 - Ingilizce
Varsayılan

B sütunundaki veriler için VBA ile bir çözüm;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Test()
Dim RegExp
Dim NoB As Long
Dim MyRng As Range, MyCell As Range
NoB = Range("B65536").Cells.End(xlUp).Row
Set MyRng = Range("B2:B" & NoB)
For Each MyCell In MyRng
Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "[^0-9]"
MyCell.Offset(0, 1) = RegExp.Replace(MyCell, "")
Next
Set MyRng = Nothing
Set RegExp = Nothing
End Sub
__________________
Kod anlatılmaz,yazılır !
Burası Excel vadisi ....

Bu mesaj en son " 11-12-2008 " tarihinde saat 18:09 itibariyle Haluk tarafından düzenlenmiştir....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-06-2005, 13:42   #7
isakarakus
 
Giriş: 03/03/2005
Şehir: Mersin/Tarsus
Mesaj: 576
Excel Vers. ve Dili:
Excel 2000 Ing.
Varsayılan

tüh...
isakarakus Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-06-2005, 13:46   #8
Haluk
 
Haluk kullanıcısının avatarı
 
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,770
Excel Vers. ve Dili:
Office 2000 - Ingilizce
Varsayılan

Alıntı:
isakarakus tarafından gönderildi
tüh...
nasıl yani ?
__________________
Kod anlatılmaz,yazılır !
Burası Excel vadisi ....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-06-2005, 13:49   #9
red_lion_72
 
red_lion_72 kullanıcısının avatarı
 
Giriş: 08/07/2004
Şehir: istanbul
Mesaj: 254
Excel Vers. ve Dili:
office 2007-mssql 2008 R2
Varsayılan

bende anlamadım, bence sorun formülde
__________________
Zekasız kuvvet yıkabilir ama yapamaz...C.Şahabeddin
Asla herşeyi bildiğini sanma. Gerçekten çok bilgili olsan da "ben cahilim" diyebilecek cesaretin daima olsun. Ivan Pavlov
red_lion_72 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-06-2005, 14:38   #10
excelman
 
Giriş: 03/09/2004
Mesaj: 174
Excel Vers. ve Dili:
Excel-2002 Türkçe
Varsayılan

İlgilenen herkese teşekür ederim.

Sayın WAKKASSSS verdiğiniz formül değer hatası verdi.

Sayın Raider verdiğiniz kodu denedim fakat kod satır içindeki rakamları metinden ayırıyor.Bu işime bazı satırlarda yarıyor fakat bazı satırlarda metin içinde benim almamam gereken rakamlar var örneğin bazı ürün açıklamaları şu şekilde;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
 Kahve Kreması 100 Gr. K.055
          Kahve Kuru 250 Gr. K.065....gibi
bu metinlerin içerisinde K. dan sonra olan rakamları almam lazım.

Kolay Gelsin.
__________________
Excel-2007 Türkçe
excelman Ç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 11:39


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


Bahis Forum - Termal Kemer - Define - Samsung Fernseher - Wheat Flour Gönen Tarım Fuarı Çorlu Telefon Santralı - Ergene Kamera - Çorlu Su Arıtma - Kaplin - Redüktör - Teknik Borulama, Tesisat, Tank ve Baca - Bulvar Palas - Plastik Yüzey Boyama - İzmit Sigorta - Çorlu Kompresör - Çorlu İnşaat - Ambalaj
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden