Soru makro ile coklu kopya alma

[bycakir]

arkadaşlar aşağıdaki makroyu çalıştırmayı denedim fakat hata veriyor cok fazla bilgim yok malesef derleme yaptım ama olmadı excel dosyasınıda ekliyorum. dosyadaki rota kopyala butonuna bağlı olan makro için desteğinizi bekliyorum. sorun aşağıda sanırım cels yerine ne kullanabileceğimi bulamadım birde i değeri a2 deki rakam olmalı bunu eklemeyi unuttum

indirme linki

Sub urun_rota()
With CreateObject("Scripting.Dictionary")
        ver = "!IFS.COPYOBJECT": GoSub ekle
        ver = "$LU=ProdStructure": GoSub ekle
        ver = "$VIEW=PROD_STRUCTURE": GoSub ekle
          
        For i = 2 To son
    If Cells(i, "J") = "ad" Or Cells(i, "J") = "Ad" Or Cells(i, "J") = "aD" Or Cells(i, "J") = "AD" Then
        Cells(i, "I") = ""
    ElseIf Cells(i, "E") = "Ø" Then
        ver = "$RECORD=!" & vbLf & "-$6:=" & Range("A" & i * 10 ) & vbLf & "-$15:=" & Range("A" & i) & vbLf & "-$7:=BÜRÜTLEME" & vbLf & "-$12:=KLP05" &  vbLf & "-$16:=0,01" & _
            vbLf & "-$17:=KALIPHANE" & vbLf & "-$19:=1" & vbLf & "-$22:=1" & vbLf & "-$20:=0,01"  vbLf & "-"
        ver = "$RECORD=!" & vbLf & "-$6:=" & Range("A" & i * 10 + 1) & vbLf & "-$15:=" & Range("A" & i) & vbLf & "-$7:=TAŞLAMA" & vbLf & "-$12:=KLP06" &  vbLf & "-$16:=0,01" & _
            vbLf & "-$17:=KALIPHANE" & vbLf & "-$19:=1" & vbLf & "-$22:=1" & vbLf & "-$20:=0,01"  vbLf & "-"
        ver = "$RECORD=!" & vbLf & "-$6:=" & Range("A" & i * 10 + 1) & vbLf & "-$15:=" & Range("A" & i) & vbLf & "-$7:=CNC İŞLEME" & vbLf & "-$12:="  & Range("A" & 1) &  vbLf & "-$16:=0,01" & _
            vbLf & "-$17:=KALIPHANE" & vbLf & "-$19:=1" & vbLf & "-$22:=1" & vbLf & "-$20:=0,01"  vbLf & "-"
    Else
       ver = "$RECORD=!" & vbLf & "-$6:=" & Range("A" & i * 10 ) & vbLf & "-$15:=" & Range("A" & i) & vbLf & "-$7:=BÜRÜTLEME" & vbLf & "-$12:=KLP05" &  vbLf & "-$16:=0,01" & _
            vbLf & "-$17:=KALIPHANE" & vbLf & "-$19:=1" & vbLf & "-$22:=1" & vbLf & "-$20:=0,01"  vbLf & "-"
       ver = "$RECORD=!" & vbLf & "-$6:=" & Range("A" & i * 10 + 1) & vbLf & "-$15:=" & Range("A" & i) & vbLf & "-$7:=TAŞLAMA" & vbLf & "-$12:=KLP06" &  vbLf & "-$16:=0,01" & _
            vbLf & "-$17:=KALIPHANE" & vbLf & "-$19:=1" & vbLf & "-$22:=1" & vbLf & "-$20:=0,01"  vbLf & "-"
       ver = "$RECORD=!" & vbLf & "-$6:=" & Range("A" & i * 10 + 1) & vbLf & "-$15:=" & Range("A" & i) & vbLf & "-$7:=CNC İŞLEME" & vbLf & "-$12:="  & Range("A" & 1) &  vbLf & "-$16:=0,01" & _
            vbLf & "-$17:=KALIPHANE" & vbLf & "-$19:=1" & vbLf & "-$22:=1" & vbLf & "-$20:=0,01"  vbLf & "-"
    End If
Next
        Set dataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        dataObject.SetText Join(.items, "")
        dataObject.PutInClipboard
        Set dataObject = Nothing
      
        MsgBox "Kayıt hazırlanmıştır" & vbCrLf & "Lütfen IFS nin ilgili bölümüne sağ click" & vbCrLf & "Satırı Yapıştır" & vbCrLf & "Komunutunu kullanın...", vbInformation, "..::Ömür ÇAKIR::.."
    
       Exit Sub
ekle:
        .Item(.Count + 1) = ver & vbCrLf
        Return
End With
  
End Sub

 

[bycakir]

sorunun halletim yinede teşekkürler hareke bu arada üstteki yazıma düzenleme yapamıyorum konu başındaki soru yu çözüldüye alamıyorum yanı
@Hüseyin bey forumda bir sorun var sanırım