Sayfa 1 istenilen satırı sayfa 2 de istenilen satır ve sütuna buton tıklama yazdırm

[thunder27]

Arkadaşlar sayfa 1 deki (hizmet) istenilen satırdaki personelin bilgilerini sayfa 2 deki (rapor) şablona uygun satır ve sütunlara sayfa 1 e konulacak bir buton yardımıyla yazdırmak istiyorum şimdiden teşekkürler.

 

[muygun]

Merhaba;
Tablonuzu veri alınacak formatta düzenlerseniz ekteki gibi olabilir.
İnceleyin.
İyi çalışmalar.

 

[thunder27]

Hocam Çok Teşekkür ederim tam istediğim gibi olmuş elinize sağlık

 

[jakkaj]

Sayfalar arası bilgi aktarımı.

Merhaba. Ekteki dosyada 2.sayfada F hücresindeki en son işlemin her zaman 1.saydaki F hücresine geçmesini istiyorum mümkünse.

 

[Emir Hüseyin Çoban]

Merhaba. Ekteki dosyada 2.sayfada F hücresindeki en son işlemin her zaman 1.saydaki F hücresine geçmesini istiyorum mümkünse.

. . .

Merhaba öncelikle foruma hoşgeldiniz.
Sorunuzu uygun bölümler altında yeni konu açarak sormalıydınız.
Acemilik diyelim.
Tıkla ~ Yeni konu açarak soru sormak


Dosyanızın makrolu çözümü ektedir. Açıklamaları okuyunuz.

Sub kod()
Application.ScreenUpdating = False
liste = Sheets.Count
son = [C65536].End(3).Row - 1
Range("F4:F" & son).ClearContents
If Sheets(liste).Name <> "Liste Normal" Then

For i = 4 To son
If Cells(i, "C") <> "" Then
syf = Cells(i, "C")
sonsat = Sheets(syf).[F65536].End(3).Row
Cells(i, "F") = Sheets(syf).Cells(sonsat, "F")
Cells(i, "G") = Sheets(syf).Cells(sonsat, "G")
Else: End If
Next i

Else
End If

Application.ScreenUpdating = True
MsgBox " B i t t i "

End Sub

. . .

 

[thunder27]

Hocam peki aktif satır değilde tüm kişileri nasıl raporlayabilirim

 

[muygun]

Merhaba;
Ekteki gibi olabilir. İnceleyin.
İyi çalışmalar.

 

[thunder27]

Teşekkür ederim hocam tam istediğim makro buydu.