Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 02-01-2018, 19:48   #1
lion3535
Altın Üye
 
lion3535 kullanıcısının avatarı
 
Giriş: 13/01/2008
Şehir: İstanbul
Mesaj: 54
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan Klasörden resim çekme (Yaka Kartı) Yardım Lütfen

Arkadaşlar, personel yaka kartı için sizlerden bir ricam var, yardımcı olursanız sevinirim.

Klasördeki vesikalık resimlerin yaka kartına otomatik yerleşmesini rica ediyorum, forumda konuyla ilgili örnekler var ama ben beceremedim, bir A4 kağıdına 8 tane yaka kartı sığacak şekilde ayarladım, yaka kartına yerleşecek resim boyutları kartın resim bölümündeki kutucuğun büyüklüğünde olması lazım, klasördeki resimlere sicil no yazdım yani sicil nosuna göre resim çağıracak, resimgetir butonuna basınca resimleri çağıracak, üstadlarım yardımlarınızı bekliyorum, şimdiden Allah razı olsun.

http://www.dosya.tc/server11/lcwwo4/...Karti.rar.html
Eklenmiş Dosyalar
Dosya Türü: rar Personel Yaka Kartı.rar (766.1 KB, 45 Görüntülenme)
lion3535 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-01-2018, 20:00   #2
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,600
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

kod:


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub resimgetir()

Dim Picture As Object
For Each Picture In ActiveSheet.Shapes

If Picture.Type = 11 Or Picture.Type = 12 Or Picture.Type = 13 Then
Picture.Delete
End If
Next Picture

sut = 3
sat = 5
For i = 1 To 8

Set Adres = Range(Cells(sat, sut), Cells(sat + 7, sut))

klasor = ThisWorkbook.Path & "\PersonelResimler\"
isim = Cells(sat + 1, sut + 1).Value

    If CreateObject("Scripting.FileSystemObject").FileExists(klasor & isim & ".jpg") = True Then
    ActiveSheet.Pictures.Insert(klasor & isim & ".jpg").Select
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.Top = Adres.Top + 2
    Selection.Left = Adres.Left + 2
    Selection.ShapeRange.Height = Adres.Height - 3
    Selection.ShapeRange.Width = Adres.Width - 6
    Selection.Name = isim
    Else
    
        If CreateObject("Scripting.FileSystemObject").FileExists(klasor & "ResimYok.jpg") = True Then
        ActiveSheet.Pictures.Insert(klasor & "ResimYok.jpg").Select
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.Top = Adres.Top + 2
        Selection.Left = Adres.Left + 2
        Selection.ShapeRange.Height = Adres.Height - 3
        Selection.ShapeRange.Width = Adres.Width - 6
        Selection.Name = isim
        End If
    End If

sut = sut + 5
If sut > 18 Then
sut = 3
sat = sat + 17
End If
Next
Cells(1, 1).Select
End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-01-2018, 20:23   #3
lion3535
Altın Üye
 
lion3535 kullanıcısının avatarı
 
Giriş: 13/01/2008
Şehir: İstanbul
Mesaj: 54
Excel Vers. ve Dili:
Office 2016 Türkçe
Varsayılan

Sayın halit3 süper oldu vallahi Allah sizden razı olsun, minnettarım.
lion3535 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-01-2018, 18:47   #4
yyhy
Altın Üye
 
Giriş: 03/12/2005
Şehir: Konya
Mesaj: 448
Excel Vers. ve Dili:
Office 2013 Pro
Varsayılan

Herkese iyi akşamlar. Öncelikle konuyu başlatan, cevap veren ve excel.web.tr ailesine teşekkürler. Güzel bir çalışma olmuş dosyayı indirdim ama bende hata verdi. Print Screen görüntüsünü attım sebebi ne olabilir acaba?
Eklenmiş Dosyalar
Dosya Türü: rar Resimlerden ilk dört satır geliyor sonra hata veriyor.rar (45.2 KB, 11 Görüntülenme)

Bu mesaj en son " 07-01-2018 " tarihinde saat 18:48 itibariyle yyhy tarafından düzenlenmiştir.... Neden: İmla hatası...
yyhy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-01-2018, 18:55   #5
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,600
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Muhtemelen resim adının bulunduğu formüllerde YOK# hata değeri oldugundan olmuyordur.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-01-2018, 19:05   #6
yyhy
Altın Üye
 
Giriş: 03/12/2005
Şehir: Konya
Mesaj: 448
Excel Vers. ve Dili:
Office 2013 Pro
Varsayılan Ne yapmamız gerekir?

Ne yapmamız gerekir sorun çözülemez mi?
yyhy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-01-2018, 20:01   #7
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,600
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Siz dosyanın içindeki kodu 2 nolu mesajdaki kod ile değiştirmemişsiniz.

Ayrıca Hücrelerde Adı soyadı yazan yerlerde formüllerde #YOK yazan yerler varmı?
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-01-2018, 20:29   #8
yyhy
Altın Üye
 
Giriş: 03/12/2005
Şehir: Konya
Mesaj: 448
Excel Vers. ve Dili:
Office 2013 Pro
Varsayılan

Sayın halit3 şimdi oldu ben ek içerisindeki dosyadan makroyu değiştirmemiştim. Değiştirdim şimdi çalışıyor. Teşekkürler güzel bir çalışma olmuş.

Bu mesaj en son " 07-01-2018 " tarihinde saat 20:29 itibariyle yyhy tarafından düzenlenmiştir.... Neden: Cümle ekleme
yyhy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-01-2018, 22:17   #9
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,668
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Halit Bey, bu güzel bir çalışma olmuş, ellerinize sağlık. Bu benimde işime yarayacak.

Sayfa üzerindeki resim sil butonuna bastığımda sayfa üzerindeki resimleri silmiyor.

Aşağıdaki kodlar butonda bulunan kodlar, bu kodları nasıl değiştirmemiz gerekiyor?
Yardımcı olur musunuz?

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sil()
Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
If Picture.Type = 1 Or Picture.Type = 12 Or Picture.Type = 13 Then
Picture.Delete
End If
Next Picture
End Sub
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-01-2018, 07:58   #10
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,600
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
ASLAN7410 tarafından gönderildi Mesajı Görüntüle
Sayın Halit Bey, bu güzel bir çalışma olmuş, ellerinize sağlık. Bu benimde işime yarayacak.

Sayfa üzerindeki resim sil butonuna bastığımda sayfa üzerindeki resimleri silmiyor.

Aşağıdaki kodlar butonda bulunan kodlar, bu kodları nasıl değiştirmemiz gerekiyor?
Yardımcı olur musunuz?

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub sil()

Dim Picture As Object
For Each Picture In ActiveSheet.Shapes
MsgBox Picture.Type
If Picture.Type = 11 Or Picture.Type = 12 Or Picture.Type = 13 Then
Picture.Delete
End If
Next Picture
End Sub
Kırmızı yere dikkat ediniz.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 10:30


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil ve Konuşma Terapisti- Çorlu Dil ve Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden