Her bir şey Bugün Cevapla
Ara
Kategoriler
duyuru (0)
soru (39)
müzik (0)
film/dizi (0)
teknik (2)
medikal (5)
sözlük (0)
yabancı dil (1)
yer/yön (0)
alınık/satılık (2)
gönül işleri (5)
hayvan (0)
kayıp (0)
kan aranıyor (1)
ev/kalacak yer (0)
Son Cevaplananlar
[]

Excelden Anlayan?

Aşağıdaki kodu internetten buldum. sırayla a1 a2 a3 hücrelerindeki değerleri K:\ sürücüsünde arayıp bulduğu resmi b1 b2 b3 hücrelerine ekliyor.

ancak K: içinde o hücredeki kodun resmi yoksa hata veriyor ve duruyor. Resmi bulamazsan durma bir sonrakine bak dedirtebileceğimiz şekile getirmek istiyorum. Yapabilecek kimse var mı?

Sub res()
For i = 1 To 4 Step 1
Cells(i, 2).Select
a = Cells(i, 1)
metin$ = "k:\" & a & ".jpg"
Set Adres = Range(ActiveWindow.RangeSelection.Address)
ActiveSheet.Pictures.Insert(metin).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 - 3
Cells(i + 1, 2).Select

Next i
End Sub

 
Sub res()
For i = 1 To 4 Step 1
Cells(i, 2).Select
a = Cells(i, 1)
metin$ = "K:\" & a & ".jpg"
Set Adres = Range(ActiveWindow.RangeSelection.Address)
If Dir$(metin) <> "" Then
ActiveSheet.Pictures.Insert(metin).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 - 3
End If
Cells(i + 1, 2).Select

Next i
End Sub
  • galadnikov  (05.12.14 20:01:54) 
Kodların basina sub(res)'ten sonra "on error resume next" komutu ekleyip oyle deneyin. İsinizi gorecek olmali.


  • majesteleri84  (06.12.14 01:25:10) 
1
istatistikler
yardım / hakkında
buraya yazılanların hakları Sir Anthony Hopkins'e aittir.
yazan eden compumaster, ilgilenen eden fader
modere edenler angelus, Artibir, aychovsky, baba jo, basond, compumaster, deckard, duyulmasi gerektigi kadar, fader, fraise, groove salad, kahvegibi, kaymaktutmayansicaksut, kibritsuyu, monstro, pandispanya, robin, ron dennis
bu sitede yazılanların hiçbiri doğru değildir. site içeriği küçükler için sakıncalı olabilir. yazılardan yazarları sorumludur. kaynak göstermeden alıntılanamaz. devlet tarafından atanmış bir kurumun internet üzerinde kimin hangi bilgiye ulaşıp ulaşamayacağına karar vermesi insan haklarına aykırıdır. web siteleri kullanıcıların istekleri doğrultusunda bağlandıkları yerlerdir. kullanıcılar isterlerse bir web sitesine bağlanmayabilirler. bu güçleri ve imkanları mevcuttur. bir kullanıcı bir siteye bağlanmak istiyorsa bu onun tercihi ve hakkıdır. bağlanmak istemiyorsa bu yine onun tercihi ve hakkıdır. halkın kendisine hizmet etmesi için görevlendirdiği kurumlar hadlerini aşıp halka neye ulaşıp ulaşmayacağını bilmeyen cahil cühela muamelesi edemezler. ebeveynlerin çocuklarını sakıncalı içeriklerden koruması için çok sayıda bedava ve ücretli yazılım mevcuttur. bu yazılımlar bir web tarayıcısını kullanmaktan daha karmaşık teknik bilgi gerektirmemektedir. devletin milletini küçük düşürmesi ve ebleh yerine koyması yasaktır. Skimlinks ile linkler üzerinden yönlendirme payı alınmaktadır.