• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Dosya yoksa makro uyarı verip dursun

D

designer41

Katılım
29 Şubat 2012
Mesajlar
53
Excel Vers. ve Dili
2007
Merhaba

Webdeki verilerimi makro ile çekebiliyorum ancak webde fiyat.php yoksa
uyarı verip makronun durması gerekiyor
yardım edebilecek arkadaşlara şimdiden teşekkürler

Sub getir()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimadresim.com/fiyat.php", Destination:=Range("$K$9"))
if fiyat.php yoksa MsgBox "fiyat dosyası bulunamadı..!", , "Uyarı" ' fiyat.php yoksa bu uyarı çıksın ve makro burada durmalı, aşağı devam ederse eski fiyatlarıda siliyor
Sheets("hesap").Select
Range("$K:M").Select
Selection.Clear
.Refresh BackgroundQuery:=False
End With
MsgBox "fiyatlar güncellendi", , "Uyarı"
End Sub
 
designer41' Alıntı:
Merhaba

Webdeki verilerimi makro ile çekebiliyorum ancak webde fiyat.php yoksa
uyarı verip makronun durması gerekiyor
yardım edebilecek arkadaşlara şimdiden teşekkürler

Sub getir()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimadresim.com/fiyat.php", Destination:=Range("$K$9"))
if fiyat.php yoksa MsgBox "fiyat dosyası bulunamadı..!", , "Uyarı" ' fiyat.php yoksa bu uyarı çıksın ve makro burada durmalı, aşağı devam ederse eski fiyatlarıda siliyor
Sheets("hesap").Select
Range("$K:M").Select
Selection.Clear
.Refresh BackgroundQuery:=False
End With
MsgBox "fiyatlar güncellendi", , "Uyarı"
End Sub
Genişletmek için tıkla ...

Merhaba
Sub getir()
Dim uyarı
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimadresim.com/fiyat.php", Destination:=Range("$K$9"))
uyarı = MsgBox("fiyat dosyası bulunamadı..!Devam etsin mi?", vbYesNo, "Onay", "Uyarı") ' fiyat.php yoksa bu uyarı çıksın ve makro burada durmalı, aşağı devam ederse eski fiyatlarıda siliyor
If uyarı = vbNo Then Exit Sub
Sheets("hesap").Select
Range("$K:M").Select
Selection.Clear
.Refresh BackgroundQuery:=False
End With
MsgBox "fiyatlar güncellendi", , "Uyarı"
End Sub
Şeklinde deneyebilirmisiniz
 
Son düzenleme:
numan şamil' Alıntı:
Merhaba
Sub getir()
Dim uyarı
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimadresim.com/fiyat.php", Destination:=Range("$K$9"))
uyarı = MsgBox("fiyat dosyası bulunamadı..!Devam etsin mi?", vbYesNo, "Onay", "Uyarı") ' fiyat.php yoksa bu uyarı çıksın ve makro burada durmalı, aşağı devam ederse eski fiyatlarıda siliyor
If uyarı = vbNo Then Exit Sub
Sheets("hesap").Select
Range("$K:M").Select
Selection.Clear
.Refresh BackgroundQuery:=False
End With
MsgBox "fiyatlar güncellendi", , "Uyarı"
End Sub
Şeklinde deneyebilirmisiniz
Genişletmek için tıkla ...
Hocam ilgin için teşekkür ederim ancak kod hata verdi

uyarı = MsgBox("fiyat dosyası bulunamadı..!Devam etsin mi?", vbYesNo,

burada takılıyor
 
designer41' Alıntı:
Hocam ilgin için teşekkür ederim ancak kod hata verdi

uyarı = MsgBox("fiyat dosyası bulunamadı..!Devam etsin mi?", vbYesNo,

burada takılıyor
Genişletmek için tıkla ...

Merhaba
uyarı = MsgBox("fiyat dosyası bulunamadı.Devam etsin mi", vbYesNo, "Onay")
If uyarı = vbNo Then Exit Sub

Şeklinde değiştirip denermisiniz
 
numan şamil' Alıntı:
Merhaba
uyarı = MsgBox("fiyat dosyası bulunamadı.Devam etsin mi", vbYesNo, "Onay")
If uyarı = vbNo Then Exit Sub

Şeklinde değiştirip denermisiniz
Genişletmek için tıkla ...

değişince mesaj geldi, fakat dosya olsada geliyor olmasa da geliyor.
dosya yoksa gelmesi gerekiyor, dosya varsa gelmemesi gerekiyor
 
designer41' Alıntı:
değişince mesaj geldi, fakat dosya olsada geliyor olmasa da geliyor.
dosya yoksa gelmesi gerekiyor, dosya varsa gelmemesi gerekiyor
Genişletmek için tıkla ...

Sizin 1 nolu mesajdaki kodlarda

Dosya olduğu halde uyarı geliyormuydu verileri güncelliyormuydu
eski kodlarınızı şimdi denermisiniz
 
numan şamil' Alıntı:
Sizin 1 nolu mesajdaki kodlarda
Dosya olduğu halde verileri güncelliyormuydu
eski kodlarınızı şimdi denermisiniz
Genişletmek için tıkla ...

1 nolu mesajımda ki kodlarda ki
(if fiyat.php yoksa MsgBox "fiyat dosyası bulunamadı..!", , "Uyarı" ' fiyat.php yoksa bu uyarı çıksın ve makro burada durmalı, aşağı devam ederse eski fiyatlarıda siliyor)
kısmını ,makroyu durdurmak için böyle birşey olabilirmi diye yazdım .
ilk dosyam bu şekilde idi
dosya varsa direk yeni verileri yazıyordu
dosya yoksa hata çıkıyodu
Sub getir()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimadresim.com/fiyat.php", Destination:=Range("$K$9"))
if fiyat.php yoksa MsgBox "fiyat dosyası bulunamadı..!", , "Uyarı" ' fiyat.php yoksa bu uyarı çıksın ve makro burada durmalı, aşağı devam ederse eski fiyatlarıda siliyor
Sheets("hesap").Select
Range("$K:M").Select
Selection.Clear
.Refresh BackgroundQuery:=False
End With
MsgBox "fiyatlar güncellendi", , "Uyarı"
End Sub




istediğim dosya yoksa uyarı gelsin, suan geliyor sıkıntı yok
dosya varsa uyarı çıkmadan direk veriler gelsin

bunlar sizin kodalarınız
dosya olsada uyarı çıkıyo olmasada çıkıyo
Sub getir()
Dim uyarı
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimadresim.com/fiyat.php", Destination:=Range("$K$9"))
uyarı = MsgBox("fiyat dosyası bulunamadı.Devam etsin mi", vbYesNo, "Onay")
If uyarı = vbNo Then Exit Sub
Sheets("hesap").Select
Range("$K:M").Select
Selection.Clear
.Refresh BackgroundQuery:=False

End With
MsgBox "fiyatlar güncellendi", , "Uyarı"
End Sub
 
designer41' Alıntı:
1 nolu mesajımda ki kodlarda ki
(if fiyat.php yoksa MsgBox "fiyat dosyası bulunamadı..!", , "Uyarı" ' fiyat.php yoksa bu uyarı çıksın ve makro burada durmalı, aşağı devam ederse eski fiyatlarıda siliyor)
kısmını ,makroyu durdurmak için böyle birşey olabilirmi diye yazdım .
ilk dosyam bu şekilde idi
dosya varsa direk yeni verileri yazıyordu
dosya yoksa hata çıkıyodu
Sub getir()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimadresim.com/fiyat.php", Destination:=Range("$K$9"))
if fiyat.php yoksa MsgBox "fiyat dosyası bulunamadı..!", , "Uyarı" ' fiyat.php yoksa bu uyarı çıksın ve makro burada durmalı, aşağı devam ederse eski fiyatlarıda siliyor
Sheets("hesap").Select
Range("$K:M").Select
Selection.Clear
.Refresh BackgroundQuery:=False
End With
MsgBox "fiyatlar güncellendi", , "Uyarı"
End Sub




istediğim dosya yoksa uyarı gelsin, suan geliyor sıkıntı yok
dosya varsa uyarı çıkmadan direk veriler gelsin

bunlar sizin kodalarınız
dosya olsada uyarı çıkıyo olmasada çıkıyo
Sub getir()
Dim uyarı
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimadresim.com/fiyat.php", Destination:=Range("$K$9"))
uyarı = MsgBox("fiyat dosyası bulunamadı.Devam etsin mi", vbYesNo, "Onay")
If uyarı = vbNo Then Exit Sub
Sheets("hesap").Select
Range("$K:M").Select
Selection.Clear
.Refresh BackgroundQuery:=False

End With
MsgBox "fiyatlar güncellendi", , "Uyarı"
End Sub
Genişletmek için tıkla ...

Denediğim kadarıyla dosyanızdaki verileri silip şu anda eski kodlar ile deneme yaptım fakat herhangi bir veri gelmiyor
Sitede bir şey olmasın?
Ben sadece uyarı bölümüne evet veya hayır onayı ekledim
eski kodlarınız tamamen değişmesi gerekebilir
Bu işi bilen arkadaşlardan yardımcı olacak bulunur
iyi çalışmalar
 
Sayın numan şamil ilgin için çok teşekkür ederim.

Arkadaşlar
sorunum dosya olsada uyarı çıkıyo olmasada çıkıyo
İstediğim; adresteki fiyat.php yoksa uyarı gelsin, suan geliyor sıkıntı yok.
adresteki fiyat.php varsa uyarı gelmeden direk veriler gelsin.

Yardım edebilecek kimse varmı?


Sub getir()
Dim uyarı
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.benimadresim.com/fiyat.php", Destination:=Range("$K$9"))
uyarı = MsgBox("fiyat dosyası bulunamadı.Devam etsin mi", vbYesNo, "Onay")
If uyarı = vbNo Then Exit Sub
Sheets("hesap").Select
Range("$K:M").Select
Selection.Clear
.Refresh BackgroundQuery:=False

End With
MsgBox "fiyatlar güncellendi", , "Uyarı"
End Sub
 

Ekli dosyalar

Sorun Çözülmüştür

Sorun Sayın asi_kral_1967 Tarafından çözülmüştür.
Böyle bir şey arayanlar için çok faydalı olacağına inandığım için dosyayı ekte gönderiyorum.
Sayın asi_kral_1967 ye çok çok teşekkür ederim.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst