Outlook İmza Dosyaları

İmza dosyaları nerede bulunur?

C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Signatures

Excel ile Kurban Satış Takibi

Kurban Satış Takip Programı;

Büyükbaş kurban satışları için kullanılabilecek Excelde oluşturulmuş bir programdır.

Excelde,

Ana Sayfa

Kişiler

Kurbanlıklar

Sayfaları bulunmaktadır. Kurbanlıklar sayfasında kurban bilgileri girilir.

Kişiler sayfasında Hisse Satışı düğmesi ile program calıştırılır.

Programın calışması icin Office - Excelin 32 bit olması gerekir. 

Windows 64 olabilir.

32 bit office kurulduğundan emin iseniz  MSCOMCTL.OCX dosyası indirilip sisteme register edilmelidir.

MSCOMCTL.OCX dosyası

 32 bit Windows ta

 c:\windows\system32 ye kopyalanır

calıştır komutuna

regsvr32 c:\windows\system32\mscomctl.ocx

yazılarak register edilir.

64 bit windows ta

c:\windows\syswow64 dizinine kopyalanır

calıştır komutuna veya command (cmd) satırına

regsvr32 c:\windows\syswow64\mscomctl.ocx

yazılarak register edilir.

Acılışta Güvenlik Uyarısı olarak Macrolar devre dışı bırakıldı diyor ise Seceneklerden icerik etkinleştirilir.

Register edilince alttaki uyarı alınacaktır.

Yardım almak isteyenler telden bana ulaşabilirler. Dosyanın Ana Sayfasında telefon numaram mevcut.

Bilgisayardan destek almak isteyenler alttaki programı (Teamviewer Portable versyonu) indirip (rar) lı dosyayı biryere acıp Teamviewer.exe yi calıştırarak  uzak masa üstü yardımı verebilirim.

---------------------------------------------------------------------------------------

Excel dosyasını  indir

Kesim takip flash dosyası drive dan indir

Kesim takip flash dosyası EXE indir
Kesim takip flash dosyası SWF indir
SWF dosyasının çalışması için FlashPlayer indir

---------------------------------------------------------------------------------------

Uzaktan Yardım Programı indir

Kurban Kesiminde canlı yayın

Excel VBA Hücreye Açıklama Ekleme

Sub AciklamaEkle()

   Dim S1 As Worksheet

   Set S1 = Worksheets("Sayfa1")

   Call Aciklama_Ekle (S1.Cells(1, 1), "Açıklama Eklendi")

End Sub

Function Aciklama_Ekle(hucre As Range, note As String)

   Dim cmt As Comment

   Set cmt = hucre.Comment

   If cmt Is Nothing Then

      Set cmt = hucre.AddComment

      cmt.Text Text:=note

   Else

      note = note & Chr(10) & cmt.Text

      cmt.Text Text:=note

      If cmt.Shape.Height < 150 Then cmt.Shape.Height = cmt.Shape.Height + 20

   End If

   cmt.Visible = False

End Function

Excel VBA Hücreye link verme

Sub linkverdene()

   Dim S1 As Worksheet

   Dim S2 As Worksheet

   Set S1 = Worksheets("Sayfa1")

   Set S2 = Worksheets("Sayfa2")

   Call linkver(S1.Cells(1, 1),S2.Cells(1, 1))

   Call linkver(S2.Cells(1, 1),S1.Cells(2, 1))

End Sub

  

Function linkver(nereye As Range, neresi As Range)

     Dim adres As String

     adres = neresi.Address(RowAbsolute:=False)

     Mid(adres, 1, 1) = "!"

     adres = neresi.Worksheet.Name & adres

     nereye.Hyperlinks.Add nereye, Address:="", SubAddress:=adres, ScreenTip:=adres

End Function

Microstation a Excelden Koordinat Yükleme

 

Xyz Yükle Mvba Dosyası 

Örnek XLS dosyası

 Açıklamalar:

Program Excel ile beraber çalışır.

txt dosyasının excele aktarımı için tıklayınız.

Aktif Excel sayfasındaki koordinatları çiziminize yükler.  Dosya ismi önemli değil ama Eğer birden fazla Excel dosyası açık ise problem yaşanabilir.

 Koordinat dizilimi

NNo

Y

X

Z

Sembol

Bölgesel ayarlardan ondalık ayracının “.” olması gerekmektedir.

MVBA dosyası nasıl kullanılır?

Görüntülü anlatım için tıklayınız.

 

Hasan Basri KARA               Harita Mühendisi