Program olarak çalıştırılabilir mi?

[gulevurgun]

Excel.web.tr aldığım maaş hesaplamak için aldığım dosya üzerinde biraz değişiklik yaptım.Ben bunu excel olarak açılmasını değilde user forumda bir program gibi çalışmasını istiyorum.daha önce bu tarz bişi görmüştüm bu sitede hesapçı diye bir çalışmaydı.Bu da öyle yapılabilir mi?

 

[Mahmut Kök]

Excel.web.tr aldığım maaş hesaplamak için aldığım dosya üzerinde biraz değişiklik yaptım.Ben bunu excel olarak açılmasını değilde user forumda bir program gibi çalışmasını istiyorum.daha önce bu tarz bişi görmüştüm bu sitede hesapçı diye bir çalışmaydı.Bu da öyle yapılabilir mi?

Userformda açılması için bir userform oluşturup, düzenlemeniz gerekir. Yani çalışma sayfasını tek çırpıda userforma aktarmanın yolu yok.

 

[serdarinho43]

Ekİ İncele HenÜz Tam Hazir Olmadi Bu Konuda Yardimci Olacak ArkadaŞlarin Yardimlarini Beklİyorum

 

[gulevurgun]

Mahmut Kök bu user formu nasıl hazırlayacağım konusunda bilgi vermeniz mümkün mü?Arkadaşlar yardımlarınızı bekliyorum.

 

[gulevurgun]

Ben kendimce bişiler yaptım ama tabi sizler göz atarsanız sevinirim.

Personel ekle userformuna personelin giriş tarihinide eklemmiz gerekiyor.Kişiyi oluşturduğumda işe giriş tarihi görebilmem gerekiyor.

Personel Sil butonuda gerekiyor İşten ayrılan personlei silebilmek için.

Maaş genel sayfaında oluşan personel isimlere tıkladığımda ben manuel olarak kendş sayfalarına bağlantılarını yaptım.Fakat kişiyi oluşturduğumda kendi sayfasını altta açıyor onunla ilişkisini otomatik oluşturmasını istiyorum.

Ayrıca girişinde kullanıcı adı ve paralo sormasını istiyorum daha önce görmüştüm eklemeye çalıştım ben yapamadım.

Yardımlarınız için teşekkür eder, iyi çalışmalar dilerim.


Maaş

 

[gulevurgun]

Bakabililecek arkadaşlar yok mu?

 

[aliakgul]

Merhaba,
Hem parola korumalı çalışma ekliyorsun hem de yardım istiyorsun .İstediğin konuya bakabileceğimiz başka yol varsa bize de açıklarsan sevinirim...

 

[gulevurgun]

Şİfreyi kaldırmıştım ama buraya ekli olanı koymuşum kusura bakmayın vba şifresi : hayalimsin

bakabilirseniz sevinirim

 

[gulevurgun]

Yardımlarınızı bekliyorum arkadaşlar

 

[memettt]

dostum ilk sayfada isimleri tıklayınca ismin oldugu sayfaya nasıl bir formülle gidiyon gönderebilinmi

 

[Ömer]

Merhaba,

İsme fare ile sağ tıklayın, oradan "Köprü" yü işaretleyin, açılan pencereden Yer İşaretine tıklayın, daha sonra açılan pencereden, isme tıklayınca hangi sayfaya gitmesini istiyorsanız o sayfayı işaretleyiniz..
Ekteki resim dosyasını inceleyiniz..

 

[gulevurgun]

Henüz onun için formul bulamadım onlara köprü atamıştım.Ama bunun bir formulü varmış ama ben ilmiyorum henüz.

 

[Necdet]

Merhaba,

Projeye küçük bir katkım olsun. A sütununda ilgili kişinin bulunduğu hücreye çift tıklandığında köprü ekler.

Aşağıdaki kodları "MAAŞ" adlı sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target.Row < 5 Then Exit Sub
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    "'" & Target.Value & "'!A1", TextToDisplay:=Target.Value
Son:
End Sub

 

[gulevurgun]

Necdet bey teşekkür ederim projeye büyük katkınız oldu.Eksik olarak İşe giriş tarihi ve personel sil butonu kaldı yapamadığım.Onu da yapabilirsem çok güzel olucak.Yardımlarınızı bekliyorum.Şimdiden herkese teşekkür ederim.

 

[Necdet]

Sayın gulevurgun,

Toplam hatasını da gidermek istedim ama A sütununun altında bir takam tarihler var, son satırı A sütununa göre bulmak istemiştim.

Son satırın altında boş olan sütunları bulmaya çalışıyorum bende

 

[Necdet]

Tekrar merhaba,

Mevcut durumu bozmak istemiyorsanız aşağıdaki kodları kullanabilirsini. TOPLAM alabilmesi için.

Private Sub CommandButton1_Click()
    Sheets("BOS").Select
    Sheets("BOS").Copy After:=Sheets(1)
    Sheets("BOS (2)").Select
    Range("B3").Select
    ActiveCell.FormulaR1C1 = (TextBox2)
    Range("B4").Select
    ActiveCell.FormulaR1C1 = (TextBox2)
    Range("B4:B13").Select
    Selection.FillDown
    Range("B14").Select
    ActiveCell.FormulaR1C1 = (TextBox2)
    Range("A1:J1").Select
    Sheets("BOS (2)").Select
    Sheets("BOS (2)").Name = (TextBox1)
    Range("A1").Select
    ActiveCell.FormulaR1C1 = (TextBox1)
    Sheets("MAAŞ").Select
    Range("A6:H6").Select
    Selection.EntireRow.Insert
    Range("B1:J1").Select
    Selection.Copy
    Range("B6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("B2").Select
    Sheets("MAAŞ").Select
    Range("A6").Select
    ActiveCell.FormulaR1C1 = (TextBox1)
    Range("B2").Select
    Range("A6:J6").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    
[COLOR=red][B]Sat = [I65536].End(3).Row - 2[/B][/COLOR]
[COLOR=red][B]Range("I" & Sat + 1) = "=SUM(I5:I" & Sat & ")"
Range("J" & Sat + 1) = "=SUM(J5:J" & Sat & ")"[/B][/COLOR]

    Range("B3").Select
    TextBox1 = ""
    TextBox2 = ""
End Sub

 

[gulevurgun]

Bunuda maaş adlı sayfaya mı ekliyeceğim.

 

[Necdet]

Merhaba,

Dosyanız ekte, gösterilmeyen satırları da gösterdim, hesaplamayı da buna göre yaptırdım.

 

[gulevurgun]

Necdet bey ilgi ve alakanız için çok teşekkürler ben bu dosya üzerinde değişiklik yapmıştım.Sizin eklediğiniz dosya ilk eklediğim dosya.Bu toplam için benim dosyamın neresinde değişiklik yapmalıyım.

 

[Necdet]

Merhaba,

Dosyanız ekte.