butona eklenen makroyu iptal edince çıkan hata

[fkalelinet]

bir buton tanımladım ve veri kısmındaki tümünü yenile komutuna yönlendirdim.
metin dosyasından veri alıyorum içeriye ve güncellemeler için dk_güncelleme makrosu bu işi yapıyor. bağlantı özelliklerinde yenilendiğinde dosya adı iste işaretli. ki günlük dosyanın tarihi ve adı değşiiyor şimdilik manuel seçiyorum.
dosya adı iste işaretli olduğundan butona basınca tümünü yenile komutu metin dosyası al penceresini dosya seçmek ve al!a basmak için çıkartıyor.
herhangi bir nedenle dosya almak dan vazgeçmek için bu pencerede Al yerine iptale basınca. microsoft visual basic hata penceresi ve runtime error "1004" Method "refereshall" of object '_workbook'failed. yazısı ile end debug help seçenekli çıkıyor. bu ekran çıkmasın istiyorum. ilgili makroya iptal edildiğinde bişey yapma gibi birşeyler ekleme gibi herhangi bir çözümü varmıdır acaba.




Sub DK_GUNCELLEME()
'
' DK_GUNCELLEME Makro
'

'
ActiveWorkbook.RefreshAll
End Sub

 

[acar6783]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.RefreshAll
End Sub

Yukarıdaki kodu sayfaın kod kısmına yazın bir deneyiniz aynı hatayı alıyorsanız dosya ekleyiniz..

 

[fkalelinet]

http://www.excel.web.tr/f48/txt-dos...i-cekme-ve-guncelleme-t136276.html#post737958

dosya ektedir. kodu ayrı bir makro mu yapacağım. yoksa ilgili makroya mı ekleyeceğim. dosyaya bakabilirmisiniz. teşekkürler

 

[acar6783]

Hangi sayfada DK20131210 adlı dosyadan veri alıyor bulmadım ..
İlka açtığımda bağlantı hatası veriyor o da c klasöründe bir yerde yine excel dosyası .
Txt dosya bağlantısı yok bunu belirtirseniz daha iyi olacaktır

 

[fkalelinet]

kod sayfasına yazıp kaydettim ama aynı hatayı alıyorum

 

[fkalelinet]

Hangi sayfada DK20131210 adlı dosyadan veri alıyor bulmadım ..
İlka açtığımda bağlantı hatası veriyor o da c klasöründe bir yerde yine excel dosyası .
Txt dosya bağlantısı yok bunu belirtirseniz daha iyi olacaktır

dk lı dosyalaroın dk-34 dk-yüktevzi ve dk özettin üçündede buton var ve orada yazıyor zaten değerleri güncellemek için buraya basıp txt dosyasını seçin diye.

ayrıca veri kısmında son dk sayfasına gelince bağlantı ve özelikleri çıkıyrodu. txt dosyasını bile ekledim rara. yazdığım 3 sayfadada butonlara atanmış makro var. ayrıca makrolara girilirse orada da dk_güncelleme makrosu var. sorunum bu makroyu çalıştırıp dosya seçmeden çıkmak isteyince gelen mesaj
teşekkürler.

 

[excelci76]

Arkadaşlar şu kodun neresinde hata yapıyorum..!!

Private Sub PERSONEL_EKLE_Click()
'SÜTUNDAKİ DOLU OLAN ENSON HÜCREDEN SONRAKİ HÜCREYE KAYIT EDER

Sheets("DB").Range("A" & Sheets("DB").Rows.Count) _
.End(xlUp).Offset(1, 0).Value = TextBox1.Text
'===============================================================
'SIRALAMA YAPAN KOD
'Dim i As Byte
'Application.ScreenUpdating = False
'For i = 1 To 1
'
'Worksheets("DB").Range(Worksheets("DB").Cells(2, i), _
'        Worksheets("DB").Cells(65536, i)).Sort _
'        Worksheets("DB").Cells(2, i)
'
'Next
'Application.ScreenUpdating = True
'----------------------------------------------------------------
'Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("DB").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("A2:A2500"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DB").Sort
        .SetRange Range("A2:C2500")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
'===============================================================
If Not TextBox1.Text = Empty Then     'If TextBox1.Text <> "" Then =BU KODLARIN İKİSİDE AYNI İŞİ YAPIYOR
MsgBox "[" & TextBox1.Text & "]" & " Personel Listesine Eklendi"
TextBox1.Text = Empty
ComboBox1.Text = Empty
'Application.ScreenUpdating = True
End If
End Sub
Private Sub PERSONEL_SIL_Click()
    Dim Rky As Range
    'With Sheets("DB")
        Set Rky = Sheets("DB").Columns(1).Find(ComboBox1.Text, , , 1)
        If Rky Is Nothing Then
        MsgBox "Böyle Bir Kayıt Yok"
        Else
        If Not Rky Is Nothing Then
        If Not ComboBox1.Text = Empty Then
    If MsgBox("[" & ComboBox1.Text & "]" & " Personel Listesinden silinsin mi?", vbYesNo) = vbYes Then
        
            Sheets("DB").Range("A" & Rky.Row, "A" & Rky.Row).ClearContents
        End If
        End If
        End If
        End If
'===============================================================
'SIRALAMA YAPAN KOD
'Dim i As Byte
'Application.ScreenUpdating = False
'For i = 1 To 1
'
'Worksheets("DB").Range(Worksheets("DB").Cells(2, i), _
'        Worksheets("DB").Cells(65536, i)).Sort _
'        Worksheets("DB").Cells(2, i)
'
'Next
'Application.ScreenUpdating = True
'--------------------------------------------------------------
'Application.ScreenUpdating = False
    ActiveWorkbook.Worksheets("DB").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DB").Sort.SortFields.Add Key:=Range("A2:A2500"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("DB").Sort
        .SetRange Range("A2:C2500")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

'===============================================================
    'End With
    Set Rky = Nothing
    ComboBox1.Text = Empty
'    Application.ScreenUpdating = True
End Sub

Private Sub PERSONEL_KAPAT_Click()
End
End Sub

TextBox içine bir şey yazınca bazen ComboBox da da çıkıyor sebebini anlayamadım, nasıl çözebilirim..

 

[ExcelF1]

Sayın excelci76, soruyu yanlış yere sormuşsunuz. Kendi sorunuz için, yeni bir konu açınız.



Sayın maymun37,

Hata aldığınız kodun ilk satırına,

[B]On Error Resume Next[/B]

komutunu ekleyerek deneyiniz.

 

[excelci76]

Sayın excelci76, soruyu yanlış yere sormuşsunuz. Kendi sorunuz için, yeni bir konu açınız.



Sayın maymun37,

Hata aldığınız kodun ilk satırına,

[B]On Error Resume Next[/B]

komutunu ekleyerek deneyiniz.

hocam yardımcı olabilirsen çok memnun olurum..

 

[fkalelinet]

kod çalıştı çok teşekkür ederim.