Excelde bi sıkıntım var yardımcı olurmusunuz?

Kodla Büyü
D

doganksk

Site Gezgini
Mesajlar
96
Arkadaşlar günaydın.Netten ekders hazırlama programı indirdim.fakat personel ekle kısmından 47.kişiden sonra eklenen kişilerin isimleri çizelgeye aktarılırken haftalık saatleri aktarılmıyor.Sanırım 50 kişiye göre yapılmış.
Acil bu işi hallettmem gerekiyor yardımcı olursanız çok sevinirim.
 

Ekli dosyalar

repocket' Alıntı:
Makroda düzenleme yapmak gerekli ve makro alanı şifrelenmiş hocam.
Genişletmek için tıkla ...

Sanırım bunun için şifre kırıcı programlar var.Ben daha önce hiç yapmadım.Nasıl değişiklik yapabilirz.Fikriniz varmı ?Çok teşekürler...
 
şifreyi çözen ve çalışan daha önce kullanıp denediği programı paylaşabilen arkadaş var mı
 
buyur hocam makro şifresi kaldırılmış hali.. dosyay şuan yoğunum bakmam zor ilgilencek arkadaş olursa dosya ekte
 

Ekli dosyalar

doganksk' Alıntı:
repocket' Alıntı:
Buyrun hocam
Genişletmek için tıkla ...

Hocam ben baktım bi değişiklik göremedim.Nerede değişikşlik yaptınız?
Genişletmek için tıkla ...

Hocam makro kodları arasında 57. satıra kadar okumasını sağlayan kodlar var. Oradaki satır sayısını değiştirdim sadece.


Kod: 
Set sh2 = Sheets("Personel Ekle")
Rows("11:57").Hidden = False
Range("a11:D57").ClearContents
Range("E11:AI57") = Empty
On Error Resume Next
For ik = 5 To 45
Gun = Cells(8, ik)
Sutun = Switch(Gun = "Pazartesi", 5, Gun = "Salı", 6, Gun = "Çarşamba", 7, Gun = "Perşembe", 8, _
Gun = "Cuma", 9, Gun = "Cumartesi", 10, Gun = "Pazar", 11)
For jk = 11 To 57
If (jk - kj) < 11 Then
kj = 0
End If
tut = jk
If sh2.Cells(jk, 3) = kadrosu Then
Cells(tut - kj, ik) = sh2.Cells(jk, Sutun - 1)
Else
If sh2.Cells(jk, 3) <> "" Then
kj = kj + 1
End If
'excel vba yı seviyorum yaw :)
'End If
End If
Genişletmek için tıkla ...
 
Cevap yazmak için giriş yap yada kayıt ol.
BBNET
Geri
Üst