Yedek Parça Listesi Hakkında

[Nikolayco]

Merhaba Sayın Uzmanlarım..

Örnek dosyanın içinde herşeyi açıklayarak yazım.Burada da kısa bir açıklama yapayım.

Print edebilecek şekilde bir A4 barkodlu sayfa hazırladım.
Bir yedek parça listem var. Print edilecek sayfaya gelen bilgiler ve resimleri Yedek parça Listesi sayfasından alınıyor olacak.

Sorun şurda 2. 3. 4. 5. sayfalara formulu kopyaladığım zaman, 2. sayfada ilk parça 16. satırdan alınması gerekiyorken 39. satırdan alıyor. Satırlarla alakalı birşey galiba.Aşağıya doğru sayfalar arttıkça formullerin aralıkları da artıyor.

Kısaca Listeye eklenilen parçalar Barkodlu print edilebilecek sayfaya

1- 2
3- 4
5- 6
7- 8
9-10
11-12
13-14
15-16
17-18
19-20
21-22
23-24
.
.
.
.

sırası ile gelmesi gerekli ama beceremedim. Yardımınıza ihtiyacım var.

Dosyada Macrolar da vardır.
Bilginize.

İlgili Arkadaşlarıma da şimdiden teşekkürler.

 

[Nikolayco]

Arkadaşlar acil yardımlarınızı rica ediyorum.

Acilen lazım bu proje..
Tşk.

 

[Korhan Ayhan]

Selamlar,

İlk sorununuz için aşağıdaki kodu kullanabilirsiniz.

Sub Resimleri_Al()
    Dim resim As Shape, i As Long, yol As String, dosya As String
    
    Sheets("YEDEK PARÇA LİSTESİ").Select
    yol = ThisWorkbook.Path
    
    For i = 2 To Cells(65536, "A").End(xlUp).Row
        Cells(i, "C").Select
        dosya = Empty
        
        If Dir(yol & "\" & Cells(i, "A").Value & ".jpg") <> "" Then
            dosya = "\" & Cells(i, "A").Value & ".jpg"
        End If
        If Dir(yol & "\" & Cells(i, "A").Value & ".gif") <> "" Then
            dosya = "\" & Cells(i, "A").Value & ".gif"
        End If
        
        If dosya <> "" Then
        ActiveSheet.Pictures.Insert(yol & dosya).Select
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.ShapeRange.Width = Range("C" & i).Width
        Selection.ShapeRange.Height = Range("C" & i).Height
        End If
    Next i
    
    Range("A1").Select
    MsgBox "İşlem tamamdır.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[Nikolayco]

Çok Teşekkür ederim. Bu kodu eklediğimde dosya içerisinde olmayan resim yeri boş kalıyor. böylelikle hangi parçaların resimlerinin eksik olduğunu daha kolay anlayabiliyorum.

Çok tşk tekrar.

Şimdi sıra 2. problemi çözmeye geldi.

Yukarıda da belirttiğim gibi print edilecek şekilde bir sayfa hazırladım. 1. sayfayı kopyalayıp 2. sayfaya yapıştırdığım zaman;

formüllerde, 16.parça geleceği yerine 39. geliyor.
resimlerde ise tek tek 600 parçayıda elle girmem gerekiyor. bundan kurtulmanın bir yolu varmı?

Yok olmuyorsa eğer elle girmeye başlayacağım çünkü..

Tşk Tekrar...

 

[Nikolayco]

Arkadaşlar acil yardıma ihtiyacım var..

 

[Korhan Ayhan]

Selamlar,

Aşapıdaki formülleri denermisiniz.

RESİMLİ BARKODLAR isimli sayfanızın;

C3 hücresine;

=DOLAYLI("'YEDEK PARÇA LİSTESİ'!A"&EĞER(MOD(SATIR()-1;5)<>2;"";NSAT((SATIR()*4-1/SATIR()-5)/10)+2))

G3 hücresine;

=DOLAYLI("'YEDEK PARÇA LİSTESİ'!A"&EĞER(MOD(SATIR()-1;5)<>2;"";NSAT((SATIR()*4-1/SATIR()-5)/10)+3))

 

[Nikolayco]

Korhan bey emeğinize sağlık çok işime yaradı bilemezsiniz.

Geç saatlere kadar benimle uğraştınız çok teşekkür ederim.