Macroyla Kes ve yapistir

[lapot]

Merehaba arkadaslar

Ekdeki document daki kirmizi tarihi ve invoice numarasini oradan kesip "To Professional fee" in yerine su cumleyle yazmak istiyorum "Credit Note Re Bill No ......... dated.........

Ilk bosluga invoice numarasini kesip yapistitirmak ve ikinci boslugada tarihi kesip yapistirmak ,bos kalan Date\Tax Point karsisina bugunun tarhini otomatik olarak macro'yla girmek istiyorum.diger sayilar ve yazilar ayni kalacak. Bu mumkunmu acaba?

herkeze saygilar

 

[mancubus]

Date\Tax Point karsisina bugunun tarhini otomatik olarak macro'yla girmek istiyorum

bunun için macroya gerek yok.

hücrenin içinde iken menüden sırayla

insert
date and time

seçiniz. bir tarih formatı belirledikten sonra "update automatically"e tick koyarsanız günün tarihi yazılır ve dosya her açıldığında güncellenir.

 

[lapot]

cevabin icin tesekkurler hocam

kirmizi tarihi ve invoice numarasini oradan kesip "To Professional fee" in yerine su cumleyle yazmak istiyorum "Credit Note Re Bill No ......... dated.........

daha sonra bu cumlenin "Credit Note Re Bill No ......... dated........." ilk bosluguna invoice numarasini kesip yapistitirmak ve ikinci boslugunada tarihi kesip yapistirmak mumkunmu?

saygilar

 

[mancubus]

ben konunun uzmanı değilim, muhtemelen beni aşar. ama yine de bir şeyler bulabilir miyiz bakalım.

daha açık hale getirmek açısından:

"To Professional fee" in yerine su cumleyle yazmak istiyorum:

"To professional" şeklinde bir ifade var ama "To Professional fee" diye bir ibare göremedim.

- "To Professional" yerine "Credit Note Re Bill No",
- yanına yukarıdan kes yapıştır ile alınacak 144744
- yanına "dated"
- yanına yukarıdan kes yapıştır ile alınacak 21 December 2009

yazdırmak istiyorsunuz anladığım kadarı ile..

aslında şablon dosyası olarak çalışmak daha doğru olur sanki. (ona da çok hakim değilim gerçi. :???: )

 

[mancubus]

konu excel ile ilgili olmadığı için adminlerden rica edersen diğer ofis uygulamaları forumuna taşınsın konu.

 

[lapot]

mancubus, aciklaman dogru, yani makro calistiktan sonra "To professional " yerine "Credit Note Re Bill no 144744 Dated 21 December 2009 " cumlesi gelecek. invoice numarsi ve tarih degisken veriler.her zaman ayni kalmayacaklar.

yerdim edebilen varsa cok memnun olurum.

saygilar

 

[mancubus]

şöyle bir şeyler çıktı. ama geliştriilmesi lazım. benim yapabileceğin bu kadar.

Sub WordMacro()

'To professional ifadesinin değiştirilmesi:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "To professional"
        .Replacement.text = "Credit Note Re Bill No"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


'FATURA NO KES YAPIŞTIR İÇİN KOD BULUNMASI LAZIM
'kod
'kod
'kod

'date ifadesinin yazılması
    Selection.TypeText text:=" dated "

'Tarihin yazılması:    
    Selection.InsertDateTime DateTimeFormat:="d MMMM yyyy", InsertAsField:= _
        True, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False

End Sub

 

[lapot]

tekrar sagol . sadece "To professional " yerine "Credit Note Re Bill No" yu dogro yazdi, "dated" i ve tarhi yanlis yere koyuyor.Youkarideki siyah "Invoice" yazisinin onune koyuyor. bir daha bakabilirmisin ustad.
saygilar

 

[mancubus]

tekrar sagol . sadece "To professional " yerine "Credit Note Re Bill No" yu dogro yazdi, "dated" i ve tarhi yanlis yere koyuyor.Youkarideki siyah "Invoice" yazisinin onune koyuyor. bir daha bakabilirmisin ustad.
saygilar

macro'yu imleç "to professional" yazısının sağında iken çalıştırın. aktif olunan yere yazıyor.

bilgim zayıf olduğu için bir yer seçerek önce oraya gitmesi sonra istediğimiz kodları çalıştırması nasıl sağlanır bilmiyorum.

mutlaka yardımcı olacak biri vardır.

 

[lapot]

mancubus cok sagol, yukaridaki kodlari nasil yazdinigini banada anlatirmisin. ogrenmek istiyorim.

 

[mancubus]

Word 2003 için konuşursak...

Tools
Macro
Record New Macro (küçük bir pencere açılır. imleç ile birlikte bir kaset resmi belirir.)
(açılan pencereden macro ismi ve sadece aktif dosya için mi yoksa tüm dokümanlar "normal.dot" için mi geçerli olacağı işaretlenecek)
(bundan sonra ekrandan yaptığınız her hareketi macro kaydedici kaydeder.)

Edit
Replace
Find what: To professional
Replace with: Credit Note Re Bill No
Replace All

Sonra macro kaydetmek için açılan küçük kutucukta stop macro tıklanarak kayıt durdurulur.

Tarih için olanı da aynı şekilde makro recorder'ı çalıştırıp insert date and time vb vb ilerleyerek kaydedebilirsiniz.