excelde hücre değerine göre kayıt yapmak

[gokhan13]

benim sorum şu mükelleflerimize ödeme bildirimi hazırlayıp aylık yapacağı ödemeleri bildiriyorum bunun içinde şöyle bi sistem kurdum birinci sayfada mükelleflerin yapacağı ödemelere ait liste var ben ikinci sayfaya a kişisi dediğim zaman bana birinci sayfadan a kişisinin ödemelerini bulup ödeme bildirimine getiriyor şunu öğrenmek istiyorum ben a kişi diye yazdığım zaman bunu önceden oluşturmuş olduğum klasörün içene otomatik kayıt yaptırabilirmiyim yardımlarınız için şimdiden teşekürler

 

[Ferhat Pazarçevirdi]

Merhabalar,

If Söyledikleriniz = Anladıklarım then
   Msgbox "[B][COLOR=red]Evet, YAPILABİLİR[/COLOR][/B]", vbInformation, "[COLOR=red][B]Cevap[/B][/COLOR]"
End If

Örnek bir dosya ilave ederseniz, daha rahat olur.

 

[gokhan13]

Ek Dosya

Konuyla İlgİlİ Buraya Bİ Örnek Koydum Ben İkİncİ Sayfaya YazdiĞim KİŞİnİn Bİlgİlerİ Bİrİncİ Sayfadan Otomatİk Geldİkten Sonra DÖkÜp Alip MÜkellefe Verİyorum Ama DÖkÜm AldiĞim O KİŞİnİn Adana Aynin Anda Kayit Olsun İstİyorum

 

[gokhan13]

Yardim Edecek Kİmse Yokmu

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu, standart bir modül sayfasına kopyalayınız.

Const klasor = "C:\Documents and Settings\user\Desktop\Foruma\"
[COLOR=green]'Bu klasor ismini, siz kendinize uyarlayınız.[/COLOR]
Sub KOPYALA()
Dim sh As Worksheet
Dim wb As Workbook
On Error Resume Next
Application.DisplayAlerts = False
Set sh = Sheets("OCAK")
sh.Copy
Set wb = ActiveWorkbook
wb.SaveAs Filename:=klasor & Trim(Range("B6")) & "-" & Range("B8") & ".xls"
If Err.Number <> 0 Then
   MsgBox "Aynı adlı çalışma kitabı şu an açık" & vbCrLf & _
          "Önce, açık çalışma kitabını kapatın", vbCritical, "UYARI"
   wb.Close 0
   Err.Number = 0
End If
Application.DisplayAlerts = True
Set sh = Nothing
Set wb = Nothing
End Sub

 

[woLwox]

yaa bu kodları ellemi yazıyonuz tek tek yoksa makro gibi mi kaydet diyince mi kendi oluşuyor.. Anlamış değilim

 

[Ferhat Pazarçevirdi]

Elle yazılıyor

 

[Rıdvan01]

selam arkadaşlar
çalışma kitabı yedekleme ile ilgili benimde bir sorum olacak.
userform üzerindeki bir CommandButton tuşuna bastığımda
dosyayı yedeklerken dosya ismini userform üzerindeki textbox tan alabilirmi
yani listbox tan seçim yaptığımda textbox sa gelen metni dosya ismi olarak kullanabilirmi.
ve sadece çalışma kitabındaki istediğim sayfayı kaydetsin bu mümkünmü
cevaplarınız için şimdiden yeşekkür ederim