Parçaal

[gezgin-49]

Sayın üstadlarım
A1 hücresinde
DAVACI .............. ........./ DAVALI ....... ÜNİVERSİTESİ REKTÖRLÜĞÜ / DAVALI ............ İNŞ. TURZ. TEMZ. MED. OTO GIDA DAĞ. PAZ. EĞİT. İNSAN KAY.SAN. VE TİC. LTD. ŞTİ. / TANIK ........... .........

isimleri var, K1 HÜCRESİNE DAVACI KISMINI
L1 HÜCRESİNE DAVALI......... ÜNİVERSİTESİ REKTÖRLÜĞÜ
M1 HÜCRESİNE DE DAVALI ..................LTD.ŞTİ yazdırmak istiyorum.
(TANIK ismi OLMAYACAK ) yazdırmak istiyorum. bir türlü yapamadım, yardımlarınızı bekliyorum saygılarımla

 

[Ali]

VBA düzenleyiciye aşağıdaki kodu ekleyin.

Function AYIR(Txt, n, AYIRici) As String
  On Error Resume Next
  AYIR = Split(Txt, AYIRici)(n - 1)
End Function

=KIRP(YERİNEKOY(ayır(A1;1;"/");"DAVACI";""))

=YERİNEKOY(ayır(A1;2;"/ DAVALI");"/ TANIK";"")

=YERİNEKOY(ayır(A1;3;"/ DAVALI");"/ TANIK";"")

 

[gezgin-49]

sayın üstadım vba kodunu modüle mi yapıştıracağız, function kodu nasıl çalışıyor ben bilmiyorum

 

[Ali]

Alt+F11 ile ile VBA düzenleyiciyi aç Insert-Module tıkla bir modül oluştur ve içerisine kodları yapıştır.

Sonra Excel sayfasına geçip yukarıda formülleri yazarak kontrol ediniz.

 

[gezgin-49]

Sayın üstadım Allah razı olsun tam istediğim gibi olmuş,