On Error GoTo Hata Gösteriyor!!!

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

On Error GoTo Hata Gösteriyor!!!

İleti#1)  Rifat_1 » 12 Tem 2018 05:44

Herkese hayırlı günler.
Arkadaşlar ne yaptım ise hata uyarısı almaktan kurtulamadım, lütfen bi bakın inceleyin nerde yanlış yapıyorum.


Kod: Tümünü seç
Sub HücreyeYerleştir()
Dim yas As Integer
On Error GoTo ResimYok
        ActiveSheet.Shapes.Range(Array("Resim " & Range("D1"))).Select
        Selection.Cut
        Cells(Range("D1"), "A").Select
        ActiveSheet.Paste
        MsgBox "Resim " & Range("d1") & " adlı öğe A" & Range("D1") & " hücresine taşındı."
        Range("D1") = Range("D1") + 1
        Range(D1).Select
Exit Sub
Reset
ResimYok:
        MsgBox "Resim " & Range("D1") & " öğesi bulunamadı"
        Range("D1") = Range("D1") + 1
        Range(D1).Select
Exit Sub
End Sub
Kullanıcı avatarı
Rifat_1
 
Kayıt: 12 Tem 2018 05:18
Meslek: Avukat
Yaş: 32
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: On Error GoTo Hata Gösteriyor!!!

İleti#2)  Enes Recep BAĞ » 12 Tem 2018 14:17

Öncelikle ne yapmak istediğinizi anlatmanız gerekiyor.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Cevap: On Error GoTo Hata Gösteriyor!!!

İleti#3)  Rifat_1 » 12 Tem 2018 16:13

Enes Recep BAĞ yazdı:Öncelikle ne yapmak istediğinizi anlatmanız gerekiyor.


Yapmak istediğim bait aslında ama yeterli bilgim olmadığı için belki işi daha da zorlaştırıyorum!

1) Öncelikle elimde farklı farklı resimler var, bunların bir kısmını kırpmam gerekirken bazısına ise hiç dokunmayacağım.
Yani klasördeki resimlerin tamamını değilde teker teker seçip ona göre işlem yapmam gerekiyor. Bunu hallettim, işime yararyan bir makro yaptı, kullanabiliyorum.

2) Sayfadaki kırpılan ve olduğu gibi alınan resimleri hücre boyutuna getirmek gerekiyor. Bunu da yaptım.

3) Her bir resmi belirli bir hücreye taşımam gerkiyor. Resimleri adları sıralı şekilde. Yani Resim 1, Resim 2, ...3,4,5... Her bir resmi A sütununda kendi numarasının bulunduğu satıra taşımak istiyorum. Yani Resim 1'i A1'e, Resim 2'yi A2'ye...
Ancak yazdığım ve yukarda da yer verdiğim kod hata veriyor tam olarak sonuca gidemiyorum. Bu noktada yardımcı olursanız çok memnun olurum.
Kullanıcı avatarı
Rifat_1
 
Kayıt: 12 Tem 2018 05:18
Meslek: Avukat
Yaş: 32
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: On Error GoTo Hata Gösteriyor!!!

İleti#4)  Rifat_1 » 13 Tem 2018 08:50

Resim

Bir mum, diğer mumu tutuşturmakla ışığından bir şey kaybetmez.

Mevlana
Kullanıcı avatarı
Rifat_1
 
Kayıt: 12 Tem 2018 05:18
Meslek: Avukat
Yaş: 32
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Sogou ve 2 misafir

Bumerang - Yazarkafe