tarih( elle yazılan ) = tarih ( satırında aynı tarihi olan alanın yazdırılması)

[latimera]

Üsdatlar S.A

ek teki dosyada elle yazılmış K2 hücresindeki tarihi baz alınarak, alağıdaki A5:H24 ( örnek verdim ) alanın YAZDIRMA ALANI olarak seçtikten sonra yazdırılması işlemi nasıl yapabilir.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz. K2 hücresini değiştirdikçe yazdırma alanı değişir.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range, İlk_Satır As Long, Son_Satır As Long
    
    If Intersect(Target, Range("K2")) Is Nothing Then Exit Sub
    If Target <> "" Then
        Set BUL = Range("A:A").Find(Target, , , xlWhole)
        If Not BUL Is Nothing Then
            İlk_Satır = BUL.Row
            Son_Satır = WorksheetFunction.CountIf(Range("A:A"), Target) + İlk_Satır - 1
            ActiveSheet.PageSetup.PrintArea = "A" & İlk_Satır & ":H" & Son_Satır
            Set BUL = Nothing
        End If
    End If
End Sub

 

[latimera]

Üsdat S.A

aşağıdaki işlemi yaptım ama yazdırma alanı çalışmadı. ( tam bilmediğimden yapamamış olabilirim. )

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz. K2 hücresini değiştirdikçe yazdırma alanı değişir.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim BUL As Range, İlk_Satır As Long, Son_Satır As Long
    
    If Intersect(Target, Range("K2")) Is Nothing Then Exit Sub
    If Target <> "" Then
        Set BUL = Range("A:A").Find(Target, , , xlWhole)
        If Not BUL Is Nothing Then
            İlk_Satır = BUL.Row
            Son_Satır = WorksheetFunction.CountIf(Range("A:A"), Target) + İlk_Satır - 1
            ActiveSheet.PageSetup.PrintArea = "A" & İlk_Satır & ":H" & Son_Satır
            Set BUL = Nothing
        End If
    End If
End Sub

 

[tukayf]

korhan hocam teşekkürler. güzel olmuş.
latimera hocam çalıştıramadıysanız ektekini kullanınız.

belirteyim kodlar korhan hocamın.

 

[latimera]

Sayın Üsdatlarım yardımlarınızdan dolayı teşekkür ederim.

korhan hocam teşekkürler. güzel olmuş.
latimera hocam çalıştıramadıysanız ektekini kullanınız.

belirteyim kodlar korhan hocamın.

 

[latimera]

Üsdatlarım S.A

Bu makroda R2 hücresine =bugün() uygulamak istediğim zaman çalışmaz sebebi ne olabilir.

Not: orjinal dosyada makro çalışmadı. nerede yanlış yaptığımı yazarmısınız.

Sayın Üsdatlarım yardımlarınızdan dolayı teşekkür ederim.

 

[Merhum İdris SERDAR]

Üsdatlar S.A

ek teki dosyada elle yazılmış K2 hücresindeki tarihi baz alınarak, alağıdaki A5:H24 ( örnek verdim ) alanın YAZDIRMA ALANI olarak seçtikten sonra yazdırılması işlemi nasıl yapabilir.

.

Dosyanız ekte.

Yazdırma alanına yazılan formüle bakın.

=INDIRECT("A"&MATCH(Sayfa1!$K$2;Sayfa1!$A$5:$A$124;0)+4&":H"&MATCH(Sayfa1!$K$2+1;Sayfa1!$A$5:$A$124;0)+3)

.

 

[latimera]

Yardımlarınız için Teşekkür ederim.

.

Dosyanız ekte.

Yazdırma alanına yazılan formüle bakın.

=INDIRECT("A"&MATCH(Sayfa1!$K$2;Sayfa1!$A$5:$A$124;0)+4&":H"&MATCH(Sayfa1!$K$2+1;Sayfa1!$A$5:$A$124;0)+3)

.

 

[latimera]

makroda =bugün() formülü neden çalışmaz.

Üsdatlar S.A.
KORHAN beyin yardımıyla yazmış olduğu makro da yaşamış olduğum olayı size aktarmak isterim.

Tarih aldığı satırda (elle yazılan tarih ) otomatik yapmak istedim ama dosya kapanıp açıldığında satırdaki tarihi baz almıyor. ne yapılabilir?

.

Dosyanız ekte.

Yazdırma alanına yazılan formüle bakın.

=INDIRECT("A"&MATCH(Sayfa1!$K$2;Sayfa1!$A$5:$A$124;0)+4&":H"&MATCH(Sayfa1!$K$2+1;Sayfa1!$A$5:$A$124;0)+3)

.