Excel belirli aralığı sildirme ??

[qbert1903]

Merhaba arkadaşlar

excel de bir tablom var ancak binlerce satır uzunluğunda.

tablo şu şekilde:

AHMET GÜZEL (2 ÜRÜN 199 TL)

benim sildirmek istediğim kısım ( ) parantez başlangıçı ile bitişine kadar olan ksıım. kalın kısım yani. parantezler de dahil.

yani üstteki satır sadece AHMET GÜZEL olarak kalmalı.

bunu nasıl yapabiliriz acaba?

 

[halit3]

Merhaba arkadaşlar

excel de bir tablom var ancak binlerce satır uzunluğunda.

tablo şu şekilde:

AHMET GÜZEL (2 ÜRÜN 199 TL)

benim sildirmek istediğim kısım ( ) parantez başlangıçı ile bitişine kadar olan ksıım. kalın kısım yani. parantezler de dahil.

yani üstteki satır sadece AHMET GÜZEL olarak kalmalı.

bunu nasıl yapabiliriz acaba?

bu kodu denermisiniz verileriniz A sütununda olacak

Sub ayır()
Columns("A:A").Select
For i = 1 To Worksheets(ActiveSheet.Name).[A65536].End(3).Row
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="(", FieldInfo:=Array(Array(i, 1), Array(i, 2), Array(i, 3))
Next i
Columns("B:B").ClearContents
Range("A1").Select
End Sub

 

[qbert1903]

oldu süper oldu ama parantezden sonrasını yandaki sütuna attı. yana atmayıp oraları silsek ?

yani yana atmasın direk silsin orayı.

 

[halit3]

kodu yeniden düzenledim 2 nolu mesajda

 

[qbert1903]

kodu yeniden düzenledim 2 nolu mesajda

hocam eyvallah süper oldu ancak mantık şu sanırım. birinci sütundaki parantez sonrasını 2. sütuna alıyor. sonrada 2. sütunu uçuruyor. ama benim 2. sütunumda da veriler mevcut. onlar silinmiş oluyor böyle yapınca. bütün olayı birinci sütunda yapamaz mıyız?

 

[halit3]

o zaman şöyle yapsak olurmu bir sütun eklesin ve işlem bittiğinde tekrardan o sütunu silsin

 

[qbert1903]

hocam A sütunundakileri şöyle yapabilir miyiz?

yani parantezden sonrasını B ye atıp silmesin direk H sütununa atsın ve orada bıraksın. silinmesin. çünkü ben o parantezli kısımı H ye yazıyorum. öyle olursa süper ötesi birşey olur.

 

[halit3]

bu kodu denermisiniz.

Sub ayır2()
For r = 1 To [a65536].End(3).Row
aranan = Cells(r, 1).Value
For i = 1 To Len(aranan)
If Mid(aranan, i, 1) = "(" Then
Cells(r, "A").Value = Mid(aranan, 1, i - 1)
m = i
i = Len(aranan) + 1
End If
Next
Cells(r, "H").Value = Mid(aranan, m, Len(aranan))
Next
End Sub

 

[qbert1903]

hocam mükemmelsiniz daha ne diyim. şirkette saatlerimi alan işi şimdi 1 sn de yapacağım binlerde satır 2 sn de tamam dır. çok çok teşekkür ederim.

 

[halit3]

iyi çalışmalar

 

[Seyit Tiken]

Alternatif :

Sub parantezsil()
[a1:a100].Replace What:="(*)", Replacement:=""
End Sub