Makroda yedeklemeyi aktuel yapmak.

[denfab76]

Merhaba,

Makro ile kayit altina alma islemi yaparken önüme cikan hatalari bir türlü asamadim. Orjinal dosyamdan bir kesit yaparak ekteki dosyada aciklama yaptim. Tesekkür ederim.

İndir Calisma

Dosyayı indir Calisma

dosya.co

 

[denfab76]

Asagidaki kod ile Pide sayfasinda sayfa41 i yazdirirken ayni zamanda Yedek sayfasina satirlardaki o an aktuel bilgileri kayit altina aliyorum. Örnegin satir 93 de B ve K sütun arasindaki sayilar gibi. Ancak satirdaki hücrelerde baska hücrelerden bilgi topluyor. =H3 veya Sayfa3!x3 gibi,kayit altina bu sekilde aliyor. Sorum kayit altina alirken hücrelerdeki bu formüllerin yerine hücrede görünen bu degerleri nasil kayit altina alabilirim vede her yazdirmada hücrede hangi degerler varsa o degerleri aktuel nasil yapabilirim. 5 sayfa yazdiriyorum, her seferinde ayri olmasii gereken sayilar her seferinde en son hücrede olan sayi olarak kayit altina aliniyor. En son hücrede olan sayilar bütün kayitlarda ayni görünüyor. Tesekkürler.

Sub etiket41()

Dim sm As Worksheet, ilk, son, yazdir As String, i As Integer
Dim S1 As Worksheet, S3 As Worksheet, sonsat As Long

Set sm = Sheets("Sayfa41")
Set S1 = Sheets("Pide")
Set S3 = Sheets("Yedek")
sonsat = S3.Cells(Rows.Count, "A").End(xlUp).Row + 1

ilk = InputBox("Baslangiç seri numarasini giriniz")
son = InputBox("Bitis seri numarasini giriniz")

yazdir = MsgBox(son - ilk + 1 & " adet etiket bastirilacaktir: emin misin?", vbYesNo, "Print")
If yazdir = vbYes Then
For i = ilk To son
sm.Range("J20") = i
sm.PrintOut Copies:=1
S1.Range("B93:K93").Copy S3.Cells(sonsat, "A")
sonsat = sonsat + 1
Next
End If

End Sub