Tarihe bilgileri kaydetme

[umitpelit]

Teşekkur ederim arkadaşım saolun, üstatlar banada bir yol gösterecektir
Bu arada bir şey dikkatimi çekti forumda bu benim 2. mesajım 2 yıldan fazla bu forumda hep okuyarak işimi görmüşüm.
Olayın içine makro girince mesaj yazmak zorunda kalıyormussun

Sn. ümitpelit bende bu konuda yeniyim yardımcı olmak isterdim..

 

[Husgvarna]

Birde hocam aylık bölümünde sıralı formüllerin birisinde takıldım bakabilirseniz..
=büyük(bireysel!g3:bireysel!m3:bireysel!s3:bireysel!y3:bireysel!ae3:bireysel!ak3;1) bu hücrelerden en büyük olanı yazsın istiyorum ama ara hücrelerdekileride alıyor ben sade "g3 m3 s3 y3 ae3 ak3" bu 6 adet hücredeki en büyük değeri yazsın istiyorum..

İlgili hücrelerdeki ("=MİN(BİREYSEL!G4........") formüllerin "=MİN" bölümlerini "=MAK" yapın. "BİREYSEL!G3 : BİREYSEL!M3"
aralarda iki nokta ":" yerine noktalı virgül olmalı ";"

 =MAK(BİREYSEL!G3;BİREYSEL!M3;BİREYSEL!S3;BİREYSEL!Y3;BİREYSEL!AE3;BİREYSEL!AK3)

Gibi.

Hocam birde textboxlarda para cinsinden yazma ve getirtebilme şansımız varmı..?

TextBox9 = Format(Sheets("BİREYSEL").Cells(b.Row, a.Column), "#,##0 [COLOR="#ff0000"]TL[/COLOR]")

Kırmızı bölüm gibi olabilir.

 

[mehmetfatih]

Hocam teşekkür ettim hepsi süper oldu umarım son isteğim olur.. Bide masa üstünde excel dosyadını açmak istediğimizde sayfalar değilde userform açılsın direk sayfaları istediğimizde userform üzerindeki excel butonuna basarak gelsin.?

 

[Husgvarna]

Hocam teşekkür ettim hepsi süper oldu umarım son isteğim olur.. Bide masa üstünde excel dosyadını açmak istediğimizde sayfalar değilde userform açılsın direk sayfaları istediğimizde userform üzerindeki excel butonuna basarak gelsin.?

Bir modüle

  Sub auto_open()
Application.Visible = False
Application.WindowState = xlMaximized
UserForm1.Show    'AÇILACAK FORMUN ADINI YAZIN
   'Sheets("Sayfa1").Select
End Sub

Formdaki butona

Private Sub CommandButton1_Click()
Application.Visible = True
   'Unload me     'EĞER FORM KAPATILACAKSA EKLEYİN
   'Sheets("Sayfa1").Select 
End Sub

 

[mehmetfatih]

Hocam çok çok teşekkür ederim süper oldu "paylaşılan bilgi bilgidir" emeğine sağlık.. şimdilik allaha emanet olun..

 

[mehmetfatih]

HOCAM TEKRAR MERHABA ÇÖZEMEDİM ŞU KOD İŞİNİ.. ŞİMDİ A2'Yİ TEXTBOX17'YE GİRDİĞİMDE B2 DEĞERİNİ TEXTBOX26'YANASIL GETİRTİRİM?
ŞUNU YAPMAYA ÇALIŞTIM AMA OLMADI..
Private Sub CommandButton4_Click()
Set A = Sheets("AYLIK").Range("A2:A13").Find(What:=TextBox17)
If Not A Is Nothing Then
On Error Resume Next
TextBox26 = Format(Sheets("AYLIK").Cells(A.Column), "#.##0 TL")
End If
End Sub

 

[Husgvarna]

Şöyle olabilir.

 Private Sub CommandButton4_Click()
Set A = Sheets("AYLIK").Range("A2:A13").Find(What:=TextBox17)
If Not A Is Nothing Then
On Error Resume Next
TextBox26 = Format(Sheets("AYLIK").Cells(A.Row, A.Column + 1), "#.##0 TL")
End If 
End Sub

 

[Orion1]

alternatif.

TextBox26 = FormatCurrency(Range("A1").Value, 2)

 

[umitpelit]

Çok özür dilerim, yardım alabilmem için konumu açmam gerekiyor forumda nasıl oluyor tam bilmiyorum.

 

[mehmetfatih]

üstatlar hepinize ayrı zyrı teşekkür edermim , emeğinize sağlık..

 

[mehmetfatih]

şöyle olabilir.

 private sub commandbutton4_click()
set a = sheets("aylık").range("a2:a13").find(what:=textbox17)
ıf not a ıs nothing then
on error resume next
textbox26 = format(sheets("aylık").cells(a.row, a.column + 1), "#.##0 tl")
end ıf 
end sub

merhaba hocam..
Yukarda hazırlamış olduğun kodda örneğin ocak ayını getirttik ocak ayı için hazırlamış olduğum tablayuda getirte durumumuz varmı müsaitsen..?

 

[Husgvarna]

merhaba.
Yukarda hazırlamış olduğun kodda örneğin ocak ayını getirttik ocak ayı için hazırlamış olduğum tablayuda getirte durumumuz varmı müsaitsen

Dosyanızın son halini (açıklamalı) eklermisiniz?

 

[mehmetfatih]

Userformda tablo..

Bireysel sayfasında hazırladığım tablayu her ay için hazırlıyacağım.
Istediğim userform 2 se bireysel raporda seçtiğim her ayın tablosuda gelsin satıcıdan bağımsız.

 

[mehmetfatih]

Yada resimdeki gibi

Ocak ayını seçtim ocak ayının tablosuda çıksın(tabiuserform üzerinden tablo yapabilme şansımız varsa o daha güzel olur)

 

[Husgvarna]

Ocak ayını seçtim ocak ayının tablosuda çıksın(tabiuserform üzerinden tablo yapabilme şansımız varsa o daha güzel olur)

Yani grafiğin userform2 de görünmesinimi istiyorsunuz.
(Eğer öyle ise sayfada kaç grafik bulunacak.)

 

[mehmetfatih]

evet hocam userformda çıksın istiyorum ama resimde olduğu gibi ocak ayını seçince sadece ocağın , şubat ayını seçince sadece o ay yani toplamda 12 ay ve 1 yıl toplamda 13 tane.

 

[Husgvarna]

evet hocam userformda çıksın istiyorum ama resimde olduğu gibi ocak ayını seçince sadece ocağın , şubat ayını seçince sadece o ay yani toplamda 12 ay ve 1 yıl toplamda 13 tane.

"BİREYSEL" sayfasına ekleyeceğiniz 13 adet "Grafik" grafik1,grafik2,...
şeklide birbirini takip etsin. Form2 yede bir "Image" nesnesi ekleyin.
Form2 deki "CommandButton4" altına kırmızı bölümü ekleyip deneyin.

 Private Sub CommandButton4_Click()

Set a = Sheets("AYLIK").Range("A2:A14").Find(What:=TextBox17)
If Not a Is Nothing Then

[COLOR="Red"]Image1.Height = 174
Image1.Width = 216
 t = a.Row - 1
 If t > 1 Then cc = "Grafik " & t
 If t = 1 Then cc = t & " Grafik"
Sheets("BİREYSEL").Shapes(cc).ScaleWidth 0.87, msoFalse, msoScaleFromTopLeft
Sheets("BİREYSEL").Shapes(cc).ScaleHeight 0.76, msoFalse, msoScaleFromTopLeft
Sheets("BİREYSEL").Shapes(t).CopyPicture
Set grafik = Sheets("BİREYSEL").ChartObjects.Add(0, 0, Sheets("BİREYSEL").Shapes(t).Width, Sheets("BİREYSEL").Shapes(t).Height)
grafik.Chart.Paste
grafik.Chart.Export "c:\NN.jpg"
grafik.Delete
UserForm2.Image1.Picture = LoadPicture("c:\NN.jpg")
Kill "c:\NN.jpg"
Sheets("BİREYSEL").Shapes(cc).ScaleWidth 1.01, msoFalse, msoScaleFromTopLeft
Sheets("BİREYSEL").Shapes(cc).ScaleHeight 1.02, msoFalse, msoScaleFromTopLeft[/COLOR]
On Error Resume Next

Textboxlar boşaltımalı: veri bulanmadığı zaman eskisi kalmasın. Sayfaya aşağıdaki kodları ekleyin

Private Sub TextBox17_Enter()
Dim n
For n = 18 To 31
Controls("TextBox" & n).Value = ""
Next
End Sub

TextBox17 devamlı büyük harfli yazması gerekiyor. Aşağıdaki koduda ekleyin

 Private Sub TextBox17_Change()
On Error Resume Next
TextBox1 = Evaluate("=büyükharf(""" & TextBox1 & """)")
TextBox1 = Evaluate("=upper(""" & TextBox1 & """)")
End Sub

 

[mehmetfatih]

Hocam dediğiniz gibi sadece kırmızı bölümü ekledim 1 gafik oluşturdum form 2 yede image ekledim ama resimdeki gibi hata veriyor. Yanlız bireysel sayfasına grafik oluşturuyor ilk çalıştır dediğimde(benim oluşturduğum grafiğin aynısını)

 

[Husgvarna]

Aşağıdaki örneği deneyin.Bakalım aynı hatayı verecek mi? bireysel sayfasına 3 adet grafik ekledim

http://s2.dosya.tc/server6/BhXrso/KopyaXl0000018.zip.html


Dosyayı yeniledim.

  If t = 1 Then Set cc = t & " Grafik"

bölümü

  If t = 1 Then cc = t & " Grafik"

şeklide olacaktı.

 

[mehmetfatih]

Seninkidede ekteki gibi hata veriyor..