Yan satırdaki kelimeleri yakalama

[FRADKLUF]

Merhaba hayırsever arkadaşlarım..

Şu ana kadar tahmin etmediğimden çok yardım ettiniz öncelikle duyarlılığınız için çokca teşekkür ederim.

Bir sorunum daha var;
Eklediğim excel de "ANKARA.ULUS", "HEADEND.ENCODER", "HEADEND.IRD", "HEADEND IRD-2", "ISTANBUL.GAYRETTEPE", "ISTANBUL.INKILAP", "IZMIR.KONAK" yazan satırların arasında kalan satırların yanındaki tüm satırlara önce hangisi geliyorsa onun yazmasını istiyorum. Bu yer isimleri kendisini tekrar ediyor. Sırası değişmiyor fakat geldiği satır sürekli değişebiliyor.(B SATIRINA ÖRNEK OLARAK ELLE GİRDİM NASIL OLACAĞINI) Mesela "HEADEND.ENCODER" gelene kadar ANKARA.ULUS yazsın.. eğer bu şekilde zor oluyorsa, Monitor kelimesinin geçtiği satırın tamamının da yan satırlara yazılması benim için çözüm olabilir.

 

[hımmmmmmmm]

slm

çalışma ekde..
her ihtimale karşı kotları veriyorum... daha önceki çalışmada
problem yaşamıştınız... çalışma XP de yapıldı... sizdeki üst versiyon..

Private Sub CommandButton1_Click()

Range("B:B").ClearContents
X = WorksheetFunction.CountA(Range("A:A")) + 2
YAZ = ""
On Error Resume Next
For I = 1 To X
  OKU = Trim(Cells(I, 1).Value)
  If Trim(OKU) = "" Then GoTo DEVAM
  XX = InStr(OKU, "Monitor")
  If XX <> 0 Then YAZ = Trim(Mid(OKU, XX + 10, Len(OKU) - (XX + 10 + 8)))
  Cells(I, 2).Value = YAZ
DEVAM:
Next I

End Sub

 

[FRADKLUF]

Tek kelime ile süpersin!! Gayet iyi çalışıyor işin gücün rast gitsin ne diyim daha..

 

[hımmmmmmmm]

slm

burada yardmlarını esirgemeyen hocalardan ve arkadaşlardan... ALLAH razı olsun de...

 

[FRADKLUF]

Allah(c.c) razı olsun ellerin dert görmesin..