|
|
|  |
|||||||
| DUYURU SİSTEMİ |
Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
 |
|
|
 |
|
|
Paylaş | Konu Araçları | Görünüm Modları |
02-06-2005, 12:12
|
#1 |
|
Giriş: 03/09/2004
Mesaj: 172
Excel Vers. ve Dili:
Excel-2002 Türkçe |
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; 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 |
|
|
|
02-06-2005, 12:20
|
#2 |
|
Giriş: 03/03/2005
Şehir: Mersin/Tarsus
Mesaj: 576
Excel Vers. ve Dili:
Excel 2000 Ing. |
ing,
=RIGHT(B2;3) türkçede, =SAÃDAN(B2;3) olacaktı galiba |
|
|
|
|
02-06-2005, 13:19
|
#3 |
|
Giriş: 03/09/2004
Mesaj: 172
Excel Vers. ve Dili:
Excel-2002 Türkçe |
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 |
|
|
|
|
02-06-2005, 13:38
|
#4 |
Giriş: 08/07/2004
Şehir: istanbul
Mesaj: 255
Excel Vers. ve Dili:
office 2007-mssql 2008 R2 |
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 |
|
|
|
|
02-06-2005, 13:40
|
#5 |
|
Giriş: 03/03/2005
Şehir: Mersin/Tarsus
Mesaj: 576
Excel Vers. ve Dili:
Excel 2000 Ing. |
merhaba,
bu formul işe yaradı ama ing.. =MID(B4;FIND("K.";B4;1)+2;LEN(B4)) |
|
|
|
|
02-06-2005, 13:41
|
#6 |
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,776
Excel Vers. ve Dili:
Office 2000 - Ingilizce |
B sütunundaki veriler için VBA ile bir çözüm;
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
__________________
[B][COLOR=darkred] Kod anlatılmaz, .... yazılır ! Burası Excel vadisi ....[/COLOR][/B] __________________ Bu mesaj en son " 11-12-2008 " tarihinde saat 18:09 itibariyle Haluk tarafından düzenlenmiştir.... |
|
|
|
|
02-06-2005, 13:42
|
#7 |
|
Giriş: 03/03/2005
Şehir: Mersin/Tarsus
Mesaj: 576
Excel Vers. ve Dili:
Excel 2000 Ing. |
tüh...
|
|
|
|
|
02-06-2005, 13:46
|
#8 | |
|
Giriş: 07/07/2004
Şehir: Turkiye
Mesaj: 4,776
Excel Vers. ve Dili:
Office 2000 - Ingilizce |
Alıntı:
__________________
[B][COLOR=darkred] Kod anlatılmaz, .... yazılır ! Burası Excel vadisi ....[/COLOR][/B] __________________ |
|
|
|
|
|
02-06-2005, 13:49
|
#9 |
|
Giriş: 08/07/2004
Şehir: istanbul
Mesaj: 255
Excel Vers. ve Dili:
office 2007-mssql 2008 R2 |
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 |
|
|
|
|
02-06-2005, 14:38
|
#10 |
|
Giriş: 03/09/2004
Mesaj: 172
Excel Vers. ve Dili:
Excel-2002 Türkçe |
İ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; Kahve Kreması 100 Gr. K.055
Kahve Kuru 250 Gr. K.065....gibi
Kolay Gelsin.
__________________
Excel-2007 Türkçe |
|
|
|
Düzenli Mod
