Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Excell'e Yeni Başlayanlar bölümüne açmıştım
"Bordro sayfasındaki verilerin banka listesine aktarılmasını istiyoruz"
Bu sabaha kadar duruyordu, az önce baktım yok
...arkadaş paylaşmış ama ben kendisine ulaşamadım.
Dosyası üzerinde bazı düzenlemeler/geliştirmeler yaptım. Netten brüte özelliğini formül olarak ekledim ama AD hatası çıktığı oluyor. Bordro formülasyonunda uzman birisi düzeltilmesi hususunda yardımcı olabilirse iyi olur..
Faydalı olması dileğiyle
Bu basit bir bordro hesabı.
Bu tür isteklerin sonu yok.
Öğretmen bordrosu.
AR-GE bordrosu farklı kanunlara göre.
SGK hesaplamalarında ikramiye faktörü
Engelli indirimleri
Özel sağlık sigortası desteği
gibi çok farklı seçenekler ve parametreler devreye girer.
Hepsinin çözümü var ancak bunlar...
Merhaba çok profesyonelce olmasa da yeni sisteme göre hazırladığım, Netten Brüte, Brütten Nete Bordro Hesaplama Tablomu yeniden paylaşıyorum.
Tablodaki yenilikler:
Bildiğiniz gibi asgari ücret 1.7.2022 tarihinden geçerli olmak üzere değişti. Tüm parametrelerin, aylık değişme ihtimali olasılığı...
...Dim s1 As Worksheet, S2 As Worksheet
Dim sS1 As Integer, sS2 As Integer
Dim Son As Long
Set s1 = ThisWorkbook.Worksheets("Bordro")
Set S2 = ThisWorkbook.Worksheets("ARŞİV")
sS1 = s1.Range("A" & Rows.Count).End(xlUp).Row
sS2 = S2.Range("A" & Rows.Count).End(xlUp).Row
veri = 0
For i = 2 To sS1...
...= False
Dim s1 As Worksheet, S2 As Worksheet
Dim sS1 As Integer, sS2 As Integer
Dim Son As Long
Set s1 = ThisWorkbook.Worksheets("Bordro")
Set S2 = ThisWorkbook.Worksheets("ARŞİV")
sS1 = s1.Range("A" & Rows.Count).End(xlUp).Row
sS2 = S2.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To sS1...
Yaptığınız formülde günü dikkate alıyor. Günü dikkate almaksızın Ay/Yıl bilgisine göre saydırmak istemiştim. Amacım bu ay içinde bu kişiye bordro yapılacak mı.
...devam ediyor. Bu fonksiyonun karşı tarafta sorunsuz çalıştığı ifade ediliyor. Bu nedenle sizden bir ricam var fonksiyonu sizde benim dosyadaki bordro hesaplama formatına yakın sizin veya gelen sorulardan çalışma yaptığınız bir dosyada uygulama şansımız var mı hata benim ofis 2010 dan kaynaklı...
Merhaba arkadaşlar; aşağıdaki kodu
İstediğim sayfada nasıl çalıştırırım yani Ben BORDRO sayfasında iken bu kodu çalıştırınca PUANTAJ sayfasında toplama işlemi yapsın.
Range önüne Sheets ("PUANTAJ").
Excel olarak kullanılan maaş programında bordroları yazılımcı xml olarak istiyor. Excel örnek veri ve xml olarak nasıl aktarabilirim.
Burda xml aktarıldığından bordroda olması gereken bazı başlıklar var adı soyadı yevmiye ssk matrahı vb..
Buna ilişkin bir örnek varmı elinizde.
Merhabalar üstadlar,
Dosyamın çalışma sistemi:
Farklı bir dosyadan kopyalanan verileri BORDRO sayfasına yapıştırıyorum. Daha sonra BORDRO_ISLEMLERI makrosuyla sayfanın düzenini yapıyorum. (Boş satırları silme gibi vs. tabi bir de kod OZLUK DOSYASI’nda bu personellerin bilgilerini bulamadığı...
...kodunu + butonu ile birlikte çalıştırabilir miyim?
Sub Artıİşareti1_Tıkla()
Dim tum As Worksheet, brd As Worksheet
Set brd = Sheets("BORDRO")
Set tum = Sheets("TUM_PERSONEL")
son1 = tum.Cells(Rows.Count, "A").End(3).Row + 1 'tüm
son2 = brd.Cells(Rows.Count, "A").End(3).Row 'brd
sayi = 0...
Merhabalar üstadlar,
Dosyamın TÜM PERSONEL sayfasında bulunan + işaretiyle bordroya yeni eklenen personelleri ekliyorum.
Aynı personelleri TÜM PERSONEL sayfasındaki bilgileriyle BES GİRİŞ sayfasına aktarabilir miyim? (Aktarma işlemi sağlanıyor ancak BORDRO sayfası W sütununda veri olan tüm...
Merhabalar Üstadlar,
Dosyamın çalışma şekli şu şekildedir:
Farklı bir dosyadaki verileri BORDRO sayfasındaki BORDRO İŞLEMLERİ makrosu ile çekiyorum.
TÜM PERSONEL sayfasında olmayan personelleri + butonuyla BORDRO sayfasından ekliyorum.
HALKBANK, BES GİRİŞ ve BES TAHSİLAT sayfaları TÜM PERSONEL...
...Dim SY As Long, S1 As Worksheet
Set MASA = CreateObject("Wscript.Shell")
Set KLS = CreateObject("Scripting.FileSystemObject")
Set S1 = Sheets("Bordro")
MASAÜSTÜ = MASA.SpecialFolders.Item("Desktop")
KLS.createfolder MASAÜSTÜ & "\" & S1.Range("AA11").Text
For SY = 1 To 65
S1.Range("B5") = SY...
...çok TEŞEKKÜR EDERİM. Makro gayet güzel çalışıyor. Ellerinize sağlık.
Sadece 2 husus var müsaadenizle onu belirteyim.
1- İşlem bittiği zaman Bordro sayfasındaki B5 hücresi en son 65 sayısında kalıyor, makro bu hücreye en son 1 sayısını yazdırmasını ve
2- Makro bitince ekrana msgbox ile...
...Dim SY As Long, S1 As Worksheet
Set MASA = CreateObject("Wscript.Shell")
Set KLS = CreateObject("Scripting.FileSystemObject")
Set S1 = Sheets("Bordro")
MASAÜSTÜ = MASA.SpecialFolders.Item("Desktop")
KLS.createfolder MASAÜSTÜ & "\" & S1.Range("AA11").Text
For SY = 1 To 65
S1.Range("B5") = SY...
...ediyorum. Lütfen kusura bakmayın.
Sorunum:
Ekteki Excel'de butona bağlı olarak çalışacak makro, masaüstüne bir klasör açacak, bu klasörün adı "Bordro" sayfasındaki AA11 hücresinden alacak. Bu klasör açıldıktan sonra "Bordro" sayfasındaki B5 hücresine 1'den başlamak üzere sırasıyla 65'e kadar...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.