Arkadaşlar benim sorunum şu..
Ekteki dosyada satış ekranından satış yaptıktan sonra eğer satış siparişli ise siparişi teslim edildi olarak ayarlamasını ve eğer extra kalıyorsa kalan extra miktarı yeni sipariş olarak : BAYİİ = EXTRA , ÇİFTÇİ = EXTRA ATILAN olarak değiştirmesini istiyorum, diğer bilgiler aynı kalacak.. şimdiden teşekkür ederim..

herkese kolay gelsin arkadaşlar

eklediğim örnekte taşınacak olan dosyayı seçiyorum
taşıyacağım klasörüde belirliyorum

evrakı taşı butonuna tıklayınca evrakı belirlediğim klasöre evrakın adını değiştirerek (evrak adını: 1 yazarak taşımasını istiyorum)

iyi çalışmalar arkadaşlar


[Resim: https://resim.accesstr.net/do.php?img=9334]

[code]Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim sOldName As String

    'If SaveAsUI Then
        Cancel = True 'cancel the save and do it yourself in code
        sOldName = Me.FullName 'store the old name so you can delete it later

        'Save using the value in the cell
        Application.EnableEvents = False
            Me.SaveAs Me.Path & Application.PathSeparator & _
                Me.Worksheets("CUST").Range("FILE").Value & ".xl

frm_sahitdavetformu ndan frm_sahitolanlar alt formuna listeogrenci ve listeogretmen formundan kişileri aktarıyorum. yalnız rapor alırken rprsahitdavetiye raporunda bulunan sınıfı ve okul no yazan etiketin ve karşısına gelen metin kutusu değerinin Öğretmense branşı ve görevi bilgileri gelmesi gerek.

Merhaba Herkese sağlıklı günler dilerim.
Poliçe kaydetme formunda PDF yükle butonuna basıldığında bilgisayardaki herhangi bir PDF dosyasını seçerek belli bir klasöre kaydediyor ve kaydedilen dosya yolu userform üstündeki textbox_DosyaYolu'na atanıyor. Yapmak istediğim işlem ise orjinal PDF dosyasının adının Userform üstündeki Combobox_PlakaNo.Text değeri ile değiştirerek Örnek olarak Resimde de gösterildiği gibi
hedef klasöre 07 ABC 3908.Pdf olarak kaydedilmesini sağlamak. Yardımlarınız için t