Veri aktarma

[rapstar_kagan_96]

Arkadaşlar merhaba.
194 sayfa bulunan çalışma kitabimin "G" sütununda bulunan (Fakat bu G sütunu G-M arası birleştirilmiş bir sütun) arıza çeşitleri açıklamasının ilk cümlesini alıp (Örneğin; "Elektrik arızası." başka bir çalışma kitabının A2 hücresinden itibaren alt alta sıralatmak istiyorum. Forumda bulduğum;

Private Sub Image1_Click()
Dim adres As String
Dim yazi, hucre As String
Dim i, j, k As Integer

adres = ThisWorkbook.Path
Sayfa1.Range("A2:A5536") = Empty
With Sayfa1
For k = 1 To 194
For i = 1 To 20
son = .Range("A5536").End(3).Row
hucre = ExecuteExcel4Macro("'" & adres & "\[Tezgah sicil kartı ve Arıza bildirim formu.xls]Sayfa" & k & "'!R" & i + 9 & "C7")
If (hucre = "" Or hucre = "0") Then Exit For
uzunluk = Len(hucre)
For j = 1 To uzunluk
yazi = Left(hucre, j)
If yazi Like "*." Then Exit For
Next j
If son > 1 Then
For j = 2 To son
If .Cells(j, 1) = yazi Then
GoTo gec
End If
Next j
End If
.Cells(son + 1, 1) = yazi
gec:
Next i
Next k
End With
MsgBox "Arıza Nedenleri Listelendi...!"
End Sub


bu kodları uyarladım fakat ;

hucre = ExecuteExcel4Macro("'" & adres & "\[Tezgah sicil kartı ve Arıza bildirim formu.xls]Sayfa" & k & "'!R" & i + 9 & "C7")

satırı hata veriyor. Yardımcı olur musunuz? (Bu kodlar benim dosyama uyarlanmış halidir)

Başka çözüm olursa farketmez.Amaç işimi görsün.

 

[Murat OSMA]

Merhaba Şerif Bey,

Lütfen dosyanızı ekleyiniz...
Kısa bir çözüm bulunabilir...