Merhabalar;
Ekli dosyada Userform Üzerindeki Textbox19 da arama yapıp aranan kayıtlar Listbox1 e geliyor. Userform Üzerindeki özet aktar butonu ile Listbox1 deki veriler Özet sayfasına aktarılıyor. Benim bura yapmak istediğim aktarılan tüm verilerin özet sayfasında 4.satırdaki gibi tablo halinde biçimlenmiş olarak gelmesi .Ayrıca veriler aktarıldıktan sonra en son SATIR olan 9 ile 15 .SATIR arasındaki tüm verilen aktarılan verilerin altına formülleri ile biçimlendirmeleri bozulmadan gelmesidir. Şimdiden yardımlarınız için teşekkür ederim.
Aktar makrosu
s6.dosya.tc
Ekli dosyada Userform Üzerindeki Textbox19 da arama yapıp aranan kayıtlar Listbox1 e geliyor. Userform Üzerindeki özet aktar butonu ile Listbox1 deki veriler Özet sayfasına aktarılıyor. Benim bura yapmak istediğim aktarılan tüm verilerin özet sayfasında 4.satırdaki gibi tablo halinde biçimlenmiş olarak gelmesi .Ayrıca veriler aktarıldıktan sonra en son SATIR olan 9 ile 15 .SATIR arasındaki tüm verilen aktarılan verilerin altına formülleri ile biçimlendirmeleri bozulmadan gelmesidir. Şimdiden yardımlarınız için teşekkür ederim.
Aktar makrosu
Kod:
Private Sub CommandButton8_Click() 'ÖZET AKTAR
Beep
Application.ScreenUpdating = False
Dim cevap As Integer
On Error Resume Next
cevap = MsgBox("Kayıtlarınızı aktarmak istiyormusunuz?", vbYesNo + vbQuestion, "ONAY")
If cevap = vbYes Then
Application.Visible = True
Sheets("ÖZET").Visible = True
Sheets("ÖZET").Select
Sheets("ÖZET").Range("C4.Z20000").ClearContents
Sheets("ÖZET").Range("C4:Z" & ListBox1.ListCount + 3) = ListBox1.List
MsgBox " Kayıt Aktarıldı"
Else
If cevap = vbNo Then
MsgBox " Kayıt aktarma işlemi iptal edildi"
Exit Sub
End If
End If
Sheets("özet").Select
Hide
Application.DisplayFullScreen = True
End SubKadastro_Takip_Programi.rar dosyasını indir - download
Kadastro_Takip_Programi.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle
s6.dosya.tc