Verileri otomatik olarak başka bir tabloya çekmek

[enigma10]

Merhaba,

Ekteki dosyada 'kablo listesi' satırlarındaki bilgilerin sırasıyla otomatik olarak 'etiket listesi' şablonuna yerleştirmek istiyorum. Makrolar ile mümkün olduğunu düşüyorum.

Bu listede toplam 400 nokta var, her bir satırın etiketini artık manuel olarak hazırlamak istemiyor ve yardımlarınızı rica ediyorum.

Şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Başlangıç ve bitişi manuel yazıp almanız olası, başvuru fonksiyonları ile kolaylıkla yapılabilir. Yalnız amacınız etiketleri tabloya doldurup yazdırdıktan sonra tekrar bir sonrakini doldurup yazdırarak bir döngü oluşturmak ise, bu işi makro ile yapmanız daha kolay olacaktır.

Fikir vermesi açısından incelemenizi tavsiye ederim. Buna göre kararı siz verin, yapılması gerekeni yapmaya çalışırım.

http://www.excel.web.tr/f14/etiket-baskysy-icin-listeyi-yazdyrmak-t103699.html

.

 

[enigma10]

Merhaba,

Başlangıç ve bitişi manuel yazıp almanız olası, başvuru fonksiyonları ile kolaylıkla yapılabilir. Yalnız amacınız etiketleri tabloya doldurup yazdırdıktan sonra tekrar bir sonrakini doldurup yazdırarak bir döngü oluşturmak ise, bu işi makro ile yapmanız daha kolay olacaktır.

Fikir vermesi açısından incelemenizi tavsiye ederim. Buna göre kararı siz verin, yapılması gerekeni yapmaya çalışırım.

http://www.excel.web.tr/f14/etiket-baskysy-icin-listeyi-yazdyrmak-t103699.html

.

Ömer Bey,

Evet etiketleri tabloya doldurup yazdırdıktan sonra tekrar sonrakini yazdırmak ihtiyacımı fazlasıyla görür sanıyorum.

Biraz daha uğraştırıcı düşünürsek;
1. kitaplık 'kablo listesi'ndeki ilk 12 satırı,
2. kitaplık 'kablo listesi'ndeki ilk 12'den sonraki 24'e kadar olan satırı,
...

şeklinde de olabilir.

Teşekkürler.

 

[Ömer]

Evden, akşam boşluğunda kodları yazıp foruma eklerim.

 

[Ömer]

Ömer Bey,

Evet etiketleri tabloya doldurup yazdırdıktan sonra tekrar sonrakini yazdırmak ihtiyacımı fazlasıyla görür sanıyorum.

Biraz daha uğraştırıcı düşünürsek;
1. kitaplık 'kablo listesi'ndeki ilk 12 satırı,
2. kitaplık 'kablo listesi'ndeki ilk 12'den sonraki 24'e kadar olan satırı,
.

Module kopyalıp çalıştırınız.

Yalnız "Kablo Listesi" sayfasında D sütunundaki verilerde 37. satırdan sonra satır atlama olduğu için döngüyü 37 de kestim. O kısımla ilgili hata varsa atlama olunca ne olması gerektiğini yazarsanız ona göre yeniden düzenlerim.

Ek olarak "etiket listesi" safasındaki doğrulamarı ne için yaptınız anlamadım. Yazdırma esnasında onlarla ilgili bir işlem yapmadım.

Sub EtiketYazdir()
 
    Dim i As Long, sat As Long, sut As Integer, Sl As Worksheet
    Dim Etiket_Satir_Adedi As Long, Etiket_Sutun_adedi As Integer
    Dim sayac As Long
 
    Set Sl = Sheets("Kablo Listesi")
 
    Etiket_Satir_Adedi = 6
    Etiket_Sutun_adedi = 2
 
    Application.ScreenUpdating = False
 
    If Sl.Range("D8") = "" Then Exit Sub
 
    On Error Resume Next
 
    Sheets("etiket listesi").Select
    Cells.SpecialCells(xlCellTypeFormulas, 23).ClearContents
 
    sat = 1: sut = 1
    For i = 8 To 37 [COLOR=darkgreen]'Sl.Cells(Rows.Count, "D").End(xlUp).Row[/COLOR]
        sayac = sayac + 1
        If sayac > Etiket_Satir_Adedi * Etiket_Sutun_adedi Then
            sat = 1: sut = 1
            ActiveSheet.PrintOut
            Cells.SpecialCells(xlCellTypeFormulas, 23).ClearContents
            sayac = 1
        End If
        If (sayac - 1) Mod Etiket_Sutun_adedi = 0 And sayac <> 1 Then
            sat = sat + 7
            sut = 1
        End If
        Cells(sat, sut) = "='Kablo Listesi'!D" & i
        Cells(sat + 1, sut + 1) = "='Kablo Listesi'!A" & i
        Cells(sat + 4, sut + 1) = "='Kablo Listesi'!C" & i
        Cells(sat + 5, sut + 1) = "='Kablo Listesi'!E" & i
        sut = sut + 3
    Next i
 
    ActiveSheet.PrintOut
    Cells.SpecialCells(xlCellTypeFormulas, 23).ClearContents
    Application.ScreenUpdating = True
 
End Sub

.

 

[enigma10]

Module kopyalıp çalıştırınız.

Yalnız "Kablo Listesi" sayfasında D sütunundaki verilerde 37. satırdan sonra satır atlama olduğu için döngüyü 37 de kestim. O kısımla ilgili hata varsa atlama olunca ne olması gerektiğini yazarsanız ona göre yeniden düzenlerim.

Ek olarak "etiket listesi" safasındaki doğrulamarı ne için yaptınız anlamadım. Yazdırma esnasında onlarla ilgili bir işlem yapmadım.


[/code]
.

Ömer Bey,

Çok teşekkür ederim, elinize sağlık, harika olmuş...

Doğrulamaları; bazen satırda iki kablo birden kullanıldığında istediğimi yazdırmak amacıya yapmıştım.

Yalnız son olarak ufak bir şey daha rica edeceğim;
Hangi satır aralıklarının otomatik yazırmada dikkate alınacağını combo box ile yazabilmemiz, ayrıca ÇALIŞTIR/YAZDIR butonu koymamız mümkün mü?

Teşekkürler, iyi bayramlar.

 

[enigma10]

Gerisini hallettim, tekrardan teşekkürler...
İyi bayramlar.