Excel' de tablo oluşturma.

[sward175]

Herkese Merhabalar,
Ekli dosyada C3 Hücresine yazılan rakama görünen formatta ( bir sayfada başlık ile beraber 36 satır yan yana iki tablo bulunuyor) 1' er sayı ekleyerek 40 tablo oluşması için yardıma ihtiyaç duymaktayım.
Konu için yardımlarınızı rica ederim.
Saygılarımla,
sward175

 

[Muzaffer Ali]

Merhaba.

Ben iki tane formülleri ile birlikte tablo oluşturdum.
Sen istediğin kadar altına kopyalayabilirsin.

G1 hücresine ilk makbuz numarasını yazacak şekilde ayarladım.
İlk no'yu G1'e yazman gerekiyor.
Ayrıca her tablo arasında bir satır boşluk olması gerekiyor.

 

[sward175]

Sayın, Muzaffer Ali Bey,
Yardımınız için çok teşekkür ederim.
Gayet güzel çalışıyor.
Saygılarımla,
sward175

 

[ÖmerFaruk]

Makro ile alternatif olsun.
B2:G37 arasındaki tablonuzun formatını oluşturun
C3 hücrenize ilk numaranızı yazın
Aşağıdaki kodu çalıştırabilirsiniz. Diğer tabloları kendisi oluşturacaktır.

Sub MakbuzNoYaz()
Dim Liste, Liste1, Liste2
    Ma = Left(Range("C3"), 2)
    Mb = Replace(Range("C3"), Ma, "") - 1

    ReDim Liste(1 To 40 * 70, 1 To 1)
    For i = 1 To 40 * 70
        Liste(i, 1) = Ma & Format(i + Mb, "000000")
    Next i
    
    For i = 1 To 40
        ReDim Liste1(1 To 35, 1 To 1)
        ReDim Liste2(1 To 35, 1 To 1)
        For k = 1 To 35
            Liste1(k, 1) = Liste((i - 1) * 70 + k, 1)
            Liste2(k, 1) = Liste((i - 1) * 70 + k + 35, 1)
        Next k
        Ofset = (i - 1) * 37
        Range("B2").Resize(36, 7).Copy Range("B2").Offset(Ofset, 0).Resize(36, 7)
        Range("C3").Offset(Ofset, 0).Resize(35, 1) = Liste1
        Range("C3").Offset(Ofset, 4).Resize(35, 1) = Liste2
    Next i
End Sub

 

[sward175]

Sayın, ÖmerFaruk Bey,
İlginize çok teşekkür ederim.
Bir değişiklik yapmam gerekti, Makbuz Numaralarını C ve H sütununa yazdırmak için nasıl bir değişiklik yapmalıyım.
Yardımınızı rica ederim.
Saygılarımla,
sward175

 

[sward175]

Ekli dosyadaki şekli ile yapmak istiyorum.

 

[ÖmerFaruk]

Kodda aşağıdaki satırları değiştin

Range("B2").Resize(36, 9).Copy Range("B2").Offset(Ofset, 0).Resize(36, 9)
Range("C3").Offset(Ofset, 0).Resize(35, 1) = Liste1
Range("C3").Offset(Ofset, 5).Resize(35, 1) = Liste2

 

[sward175]

ÖmerFaruk Bey,
Çok teşekkür ederim gayet güzel çalışıyor.
Saygılarımla,
sward175