Yalnız Mesajı Göster
Eski 18-05-2017, 22:24  
leonadies
Altın Üye
 
leonadies kullanıcısının avatarı
 
Giriş: 12/02/2015
Şehir: Ankara
Mesaj: 144
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan

Alıntı:
leumruk tarafından gönderildi Mesajı Görüntüle
Merhaba,
Sayfa uyarlamasını kendiniz yaparsınız.
Alternatif:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ayir()
sonsat = Cells(Rows.Count, 1).End(3).Row
Range("b1:v" & sonsat).ClearContents
For x = 1 To sonsat
If InStr(1, Cells(x, 1), ")") > 0 Then
deg = Split(Cells(x, 1), ")")
For y = 0 To UBound(deg)
If InStr(1, deg(y), "(") > 0 Then
deg2 = Split(deg(y), "(")
say = UBound(deg2)
Cells(x, y + 2) = deg2(say)
Else
Cells(x, y + 2) = deg(y)
End If
Next
End If
Next
End Sub
Sorunsuz çalışıyor. Teşekkür ederim
leonadies Çevrimdışı   Alıntı Yaparak Cevapla