paraf ekleme yardım

[asilme]

arkadaşlar ekli dosyada da gösterdiğim gibi üst yazının alt kısmına tarif-görevi- ve isim yazan paraf ekleme istiyorum.ancak yeri sabit değil yani bazen 20. satıra eklemek gerekiyor bazen 40. satıra.Benim istediğim nereye ekleyeceksem o hücrede iken bir şekilde oraya parafın gelmesi ve istediğimde kalkması.bu şekilde kullandığım yaklaşık 10 ayrı excel kitabı ve yaklaşık 50 sayfa var bu sebepten tüm açık kitaplarıma uygulacağım bir sistem istiyorum.formu inceledim ancak kendi istediğimi bulamadım veya anlayamadım yardımcı olacak varmı.şimdiden teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı.

Ayrıca Paraf adlı bir sayfa açınız ve A1 e ilk unvanA2 ye ikinci unvan ve B1 ve B2 ye de isimleri yazınız.

Paraf adlı sayfa açmanın nedeni kodlarla uğraşmadan ilgili isim ve ünvan değişikliğini sayfa üzerinden yapabilmek için.

Paraf eklenecek satırda herhangi bir hücreye çift tıklamanız yeterli.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Range("A" & Target.Row) = Date
    Range("A" & Target.Row + 1) = Date
    
    Range("D" & Target.Row) = Sheets("Paraf").Range("A1")
    Range("I" & Target.Row) = Sheets("Paraf").Range("B1")
    
    Range("D" & Target.Row + 1) = Sheets("Paraf").Range("A2")
    Range("I" & Target.Row + 1) = Sheets("Paraf").Range("B2")
    
    Range("A" & Target.Row + 3) = "Eki : 1 Adet"
   
End Sub

 

[sametozyavuz]

necdet bey paraf taki tarih hücreye sığmıyor.
acaba orjinal paraftaki gibi ilk 3 hücreyi de birleştirebilirmisiniz?

bir de kodu bu şekilde değiştirsek nasıl olur. çünkü soruda aynı kitapta birçok sayfa olduğu söylenmiş.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Range("A" & Target.Row) = Date
Range("A" & Target.Row + 1) = Date

Range("D" & Target.Row) = Sheets("Paraf").Range("A1")
Range("I" & Target.Row) = Sheets("Paraf").Range("B1")

Range("D" & Target.Row + 1) = Sheets("Paraf").Range("A2")
Range("I" & Target.Row + 1) = Sheets("Paraf").Range("B2")
End Sub

 

[asilme]

hocam emeğinize sağlık yapmışsınız .tüm açık kitaplara ve kitaptaki sayfalara uygulamak için başka yapacak birşey varmı bilginiz varsa paylaşırsanız sevinirim

 

[sametozyavuz]

hocam emeğinize sağlık yapmışsınız .tüm açık kitaplara ve kitaptaki sayfalara uygulamak için başka yapacak birşey varmı bilginiz varsa paylaşırsanız sevinirim

benim göndermiş olduğum kodu her çalışma kitabınızın
vba kısmında "bu çalışma kitabı" na yapıştırmanız ve paraf sayfasını da eklemeniz gerekmektedir.

necdet beyin gönderdiği kodu ise
vba da her sayfaya yapıştırmanız ve her kitaba yine bir paraf sayfası koymanız gerekmekte.
aksi takdirde çalımaz kodlar.

vba konusunda bilginiz az ise
excel açıkken Alt+F11 tuş kombinasyonu ile açılır.
benim gönderdiğim kodu da tarif ettğim şekilde yapıştırın.

 

[asilme]

yaptığınız güzel elinze sağlık ancak ben derdimi tam anlatamadım herhalde ben modül formül ile kısayol makrosuna ekleyip tüm açık kitaplarda çalışmasını istiyorum herhalde tam anlatamıyorum.yinede emeğiniz için elinize sağlık.kısmen kullanabilirm

 

[sametozyavuz]

yaptığınız güzel elinze sağlık ancak ben derdimi tam anlatamadım herhalde ben modül formül ile kısayol makrosuna ekleyip tüm açık kitaplarda çalışmasını istiyorum herhalde tam anlatamıyorum.yinede emeğiniz için elinize sağlık.kısmen kullanabilirm

her açtığınız dosyada işe yaramasını istiyorsanız
ekteki resimde göründüğü gibi
yeni bir makro kaydetmeye başlayın ve makronun saklanacağı yeri
kişisel makro çalışma kitabı olarak seçin.
böylece o bilgisayarda makro daima çalışacaktır.
sonra basit birşeyler yapıp kaydı durdurun.
vba dan oluşturduğunuz kodu bununla değiştirin.
koda kısayol tuşu da atarsanız tuş ile çalışacaktır. resimde ben q tuşunu ekledim.


ActiveCell.Value = Date
ActiveCell.Offset(o, 3) = "meslek"
ActiveCell.Offset(o, 6) = "isim"
ActiveCell.Offset(1, 0) = Date
ActiveCell.Offset(1, 3) = "meslek2"
ActiveCell.Offset(1, 6) = "isim2"

 

[asilme]

sayın samet ozyavuz anlattığınız benim aradığım şey ancak denedim yapamadım makroyu çalıştıramadım size zağmet olmaz ise herhangi bir dosyaya uygulayıp gönderirseniz çok memnun olurum.aslında kodu kendim uygulamam gerek ancak beceremedim teşekkürler

 

[nane]

Merhabalar,
Çift tıklama yerine sağ klik ile çıkan ve çalışan şeklinde yapılabilir mi ?
Teşekkürler...
Yb®

 

[asilme]

arkadaşlar excel de yaptım ve ofisüe çalışanlar için büyük iş kolaylığı ancak bir şey sormak istiyorum aynı sistem word belgesinde olurmu bilgisi olan varmı

 

[sametozyavuz]

arkadaşlar excel de yaptım ve ofisüe çalışanlar için büyük iş kolaylığı ancak bir şey sormak istiyorum aynı sistem word belgesinde olurmu bilgisi olan varmı

geç bir cevap fakat yeni deneme fırsatım oldu.
worde makro ekleyebilirseniz bu kodu deneyebilirsiniz.

Sub Makro4()
'
' Makro4 Makro
'
'
    Selection.EndKey Unit:=wdStory
    Selection.InsertDateTime DateTimeFormat:="dd/MM/yyyy", InsertAsField:=True _
        , DateLanguage:=wdTurkish, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
    Selection.TypeText Text:=" ilk paraf sahibi"
    Selection.TypeParagraph
    Selection.InsertDateTime DateTimeFormat:="dd/MM/yyyy", InsertAsField:=True _
        , DateLanguage:=wdTurkish, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
    Selection.TypeText Text:=" ikinci paraf sahibi"
End Sub

 

[ckayaz]

Merhabalar,
Çift tıklama yerine sağ klik ile çıkan ve çalışan şeklinde yapılabilir mi ?
Teşekkürler...
Yb®

Olur neden olmasın kod sayfasının üzerinde iki kutu var orda sağdaki kutunun içinde SheetBeforeDoubleClick bir altındada SheetBeforeRightClick yazan yeri tıklarsan açılan kodların içine bu kodları yapıştır veya o kodları silin bunu yapıştırın


Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Range("A" & Target.Row) = Date
Range("A" & Target.Row + 1) = Date

Range("D" & Target.Row) = Sheets("Paraf").Range("A1")
Range("I" & Target.Row) = Sheets("Paraf").Range("B1")

Range("D" & Target.Row + 1) = Sheets("Paraf").Range("A2")
Range("I" & Target.Row + 1) = Sheets("Paraf").Range("B2")
End Sub

 

[Necdet]

arkadaşlar excel de yaptım ve ofisüe çalışanlar için büyük iş kolaylığı ancak bir şey sormak istiyorum aynı sistem word belgesinde olurmu bilgisi olan varmı

En kolayı Word de olur. Makroya bile gerek kalmaz. Otomatik Düzelt seçeneğini kullanabilirsiniz.

Bunun için önce yazdığınız Paraf satırlarını seçip kopyalayınız.
Word Otomatik Seçeneklere gidiniz

Metni yazarken değiştir seçeneğinde Değiştir kısmına word içinde kullanmayacağınız bir şey yazın, örneğin prf

Yerine kısmında sizin seçtiğiniz metin belirecektir. Burada dikkat etmeniz gereken şey Biçimlendirilmiş Metin seçeneğinin seçili olması.

Ekle ve Tamam

Kullanımı ise çok basit. Parafı ekleyeceğiniz satırda iken sadece prf yazıp bir boşluk veya . yazdığınız an parafınız otomatik olarak gelecektir.

Ben bırıkan paraf gibi 1-2 satırlık şey eklemeyi, koca şablonu bu şekilde kullanıyorum. Daha hızlı oluyor


Güle güle kullanınız şimdiden.

 

[asilme]

arkadaşlar ekli word belgesine makro ekledim ( ilk defa wordde makro eklendiğini bilmiyordum) ancak ben excelde olduğu gibi kısayol a ekleyip tüm açık sayfalara yapmak istiyorum.excel de bu oluyor word de oluyormu yardımcı olabilirmisiniz.

 

[sametozyavuz]

bence necdet hocamın cevap en kolayı olmuş.
hem tüm belgelerinizde de çalışacaktır.
ama makroyu eklemek isterseniz.

ilk önce başka bir makro yapıyormuş gibi
makro kaydete basın.
oradaki seçeneklerde " tüm belgeler " diye bir yer var onu seçin
makroyu kaydetmeyi sonuna kadar bitirin.
sonra o makroyu kendi kullanmak istediğiniz kod ile değiştirin.
eke ilgili resmi de koydum oradan daha ii anlarsınız.

ayrıca eklediğiniz bu kodu düğmeye eklerseniz.
düğmenizi wordün en üstündeki hızlı şeride ekleyecektir.
böylece her word sayfasında paraf ekleyebilirsiniz.

 

[nane]

Olur neden olmasın kod sayfasının üzerinde iki kutu var orda sağdaki kutunun içinde SheetBeforeDoubleClick bir altındada SheetBeforeRightClick yazan yeri tıklarsan açılan kodların içine bu kodları yapıştır veya o kodları silin bunu yapıştırın


Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Range("A" & Target.Row) = Date
Range("A" & Target.Row + 1) = Date

Range("D" & Target.Row) = Sheets("Paraf").Range("A1")
Range("I" & Target.Row) = Sheets("Paraf").Range("B1")

Range("D" & Target.Row + 1) = Sheets("Paraf").Range("A2")
Range("I" & Target.Row + 1) = Sheets("Paraf").Range("B2")
End Sub

Teşekkürler ellerinize sağlık
Yb®

 

[ckayaz]

Teşekkürler ellerinize sağlık
Yb®

iyi günlerde kullanın