Özel Yapıştırma

[esolen]

Ã?zel Yapıştırma

Arkadaşlar Merhaba;
c 1 sütününda 500 CHF
c2 sutununda 1,297 ABP
c3 sutunudna 1.295.USD

gibi rakamlar yazıyor ben bunları
d sutununa sadece rakamları copyalayabilirmiyim

 

[vassago1974]

selam
önce bul ve değiştir kullandım ctrl + h
burda aranan değer kısmına . (nokta) yazdım
yeni değer kısmınıda boş bıraktım
böylelikle noktalardan kurtuldum
aynı yöntemlede virgülden kurtuldum
geriye noktanın kaybolması sonucu birleşik USD kaldı
daha sonra c1den c3'e kadar tarama yaptım
VERi menüsünden metni sütunlara dönüştür seçeneğini seçtikten sonra
(burda sabit genişlikli seçeneği işaretlenmiş olucak) ileri diyorum
boşluk seçeneğini işaretledim birde diğer kısmında USD'den kalma U'yu yazıyorum
ileri dedikten sonra geriye sadece rakamlar kalıyo

napiim ancak böyle çözebildim :hiho:

selamlar

 

[Kemal Demir]

sub deneme()

Columns("C:C").Select
Application.ScreenUpdating = False

Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="a", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="b", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="c", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ç", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="d", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="e", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="f", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="g", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ğ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="h", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="i", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="j", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="k", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="l", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="m", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="n", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="o", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="p", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="r", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="s", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="t", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="u", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="v", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="w", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="x", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="y", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="z", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ş", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ç", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ö", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ğ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="ü", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=":", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Columns("C:C").Select
Selection.Copy
Columns("D").PasteSpecial
Application.CutCopyMode = False
Columns("C:C").Select
Selection.ClearContents
Range("D1").Select
End sub

gunaydın

Üstadlar yokken bende bir cevap vereyım dedım uzun ama ısıne yarayabilir.
Acaba istediğin bumuydu.

 

[Kemal Demir]

Gülen yüzün yerıne asagıdaki kodu yazın

Columns("D").PasteSpecial

 

[Kemal Demir]

evet anladım 'D' : noktadan kaynaklanan güler yüz

 

[Necdet]

Forumda rakamları ayıran bir makro vardı, onu arattırın kullanın, ben yardımcı olayım diye ararttırdım ama bulamadım Belki siz bulursunuz

 

[SGM020]

c 1 sütününda 500 CHF
c2 sutununda 1,297 ABP
c3 sutunudna 1.295.USD

gibi rakamlar yazıyor ben bunları
d sutununa sadece rakamları copyalayabilirmiyim

Ekteki dosyadaki gibi mi?

Kolay gelsin.

 

[Kemal Demir]

cok sagılılı değil ama buda işine yarayabilir

kolon aralığını sen değiştirebilirsin

Sub Rakamıayır()
Columns("H:H").Select
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=True, FieldInfo:= _
Array(Array(1, 1), Array(2, 1))
Range("H1").Select
End Sub
:boo:
Ama Ustadlar daha iyi yardımcı olablir.

 

[suzunkopru]

Public Function RakamAl(VeriNerede As String) As String
Dim byt As Byte, hafiza As String
For byt = 1 To Len(VeriNerede)
 hafiza = Mid(VeriNerede, byt, 1)
  Select Case IsNumeric(hafiza)
   Case Is = True
   RakamAl = RakamAl & hafiza
  End Select
Next byt
End Function

 byt değişkeninin Veri Tipi: Byte
 byt değişkeni 1 ile VeriNerede değişkeninin uzunluğu arasında hareket eder
 hafiza değişkeni = Parçaal(VeriNerede değişkeninden, byt değişkeninden başla, 1 parça al)
 hafiza değişkeninin Rakamsal olma durumu
 Rakamsal ise
 RakamAl değişkeni = RakamAl birleştir & hafiza değişkeni ile
 İşlem sonu
 Byt değişkeni döngü kontrolörü

 Veri içinden rakamsal olanlar var mı, Parçalar halinde bakılacak, rakamsal ise hafiza değişkeninde sonuçlar birleştirilecek.
 Veri alma işlemi döngü içerisinde yapılıyor ki, her seferinde parça alma başlangıcı değişsin.
 Yani; Mid(VeriNerede, byt, 1)
 byt= 1 To Len(VeriNerede: Mesela 5 olsun)
Parçaal (Metin: VeriNerede, Başlangıç uzunluğu: 1, alınacak parça:1)
Parçaal (Metin: VeriNerede, Başlangıç uzunluğu: 2, alınacak parça:1)
Parçaal (Metin: VeriNerede, Başlangıç uzunluğu: 3, alınacak parça:1)
Parçaal (Metin: VeriNerede, Başlangıç uzunluğu: 4, alınacak parça:1)
Parçaal (Metin: VeriNerede, Başlangıç uzunluğu: 5, alınacak parça:1)

Þimdi Excelde dilediğiniz hücreye şöyle formül yazın:
=RakamAl(Hücre Adresi)

Yada:

Sub VBA_Alsin()
  Dim rng As Range
  For Each rng In Range("C1:C100")
    rng.Offset(0, 1) = RakamAl(rng.Value)
  Next rng
End Sub

 

[Haluk]

http://www.excel.web.tr/viewtopic.php?p=37513#37513

Kullanımı; (A1 hucresi için)


=Ayir2(A1)

 

[Kemal Demir]

Cok iyi Teşekkur ederim

 

[esolen]

Hepinize Teşekür ederim .