Kişi ekleme

[hgenc545]

Merhaba,

ekde vardiya programım var. Içinde talebim yazıyor.

Destek için şimdiden teşekkürler

 

[Ömer BARAN]

Merhaba.

Yanlış anlamıyorsam aşağıdaki kodları kullanabilirsiniz.
.

[B][COLOR="red"]Sub EKLE()[/COLOR][/B]
If [S5] = "" Or [S7] = "" Then Exit Sub
sat = Mid([S7], 2, 255)
Range("A" & sat & ":P" & sat).Insert Shift:=xlDown
Cells(sat, 1) = [S5]
Cells(sat - 1, 16).Copy: Cells(sat, 16).PasteSpecial Paste:=xlPasteFormulas
MsgBox [S5] & ", " & sat & " satırına eklendi."
[S5:S7].ClearContents
[B][COLOR="Red"]End Sub

Sub SIL()[/COLOR][/B]
If [T5] = "" Or WorksheetFunction.CountIf([A:A], [T5]) = 0 Then Exit Sub
sat = WorksheetFunction.Match([T5], [A:A], 0)
Range("A" & sat & ":P" & sat).Delete Shift:=xlUp
MsgBox [T5] & ", " & sat & " satırından silindi."
[T5].ClearContents
[B][COLOR="Red"]End Sub[/COLOR][/B]

 

[hgenc545]

ömer baran hocam harikasınız!!! tam da bu istediğim.. Çok teşekkür ediyorum..

hayırlı bayramlar

 

[hgenc545]

Merhaba.

Yanlış anlamıyorsam aşağıdaki kodları kullanabilirsiniz.
.

[B][COLOR="red"]Sub EKLE()[/COLOR][/B]
If [S5] = "" Or [S7] = "" Then Exit Sub
sat = Mid([S7], 2, 255)
Range("A" & sat & ":P" & sat).Insert Shift:=xlDown
Cells(sat, 1) = [S5]
Cells(sat - 1, 16).Copy: Cells(sat, 16).PasteSpecial Paste:=xlPasteFormulas
MsgBox [S5] & ", " & sat & " satırına eklendi."
[S5:S7].ClearContents
[B][COLOR="Red"]End Sub

Sub SIL()[/COLOR][/B]
If [T5] = "" Or WorksheetFunction.CountIf([A:A], [T5]) = 0 Then Exit Sub
sat = WorksheetFunction.Match([T5], [A:A], 0)
Range("A" & sat & ":P" & sat).Delete Shift:=xlUp
MsgBox [T5] & ", " & sat & " satırından silindi."
[T5].ClearContents
[B][COLOR="Red"]End Sub[/COLOR][/B]

ömer baran hocam harikasınız!!! tamda bu istediğim... ellerinize sağlık

hayırlı bayramlar

 

[hgenc545]

Ömer Baran tekrar slmlar hocam slmlar;

Bir ihtiyacım daha doğdu bu dosyada;

"A" SÜTUNUNA ELLE "X" SÜTUNUNDAKİ İSİMLERİN DIŞINDA BİR GİRİŞ YAPTIĞIMIZDA HATA VERİYOR. HÜCRE SINIRLAMASI KOYDUM. OLMASI GEREK BU.. AMA
LİSTEDE OLMAYAN BİR İSMİ (SENYA) "A"SÜTUNUNA COPY PAST YAPTIĞIMDA HÜCRE VERİ SINIRI KOYMAMA RAĞMEN KABUL EDİYOR. DOLAYISI İLE "KİŞİ EKLE" MACROSU İLE YASAK BİR İSİM YAZDIĞIMDA İSMİ KABUL EDİYOR.
TALEBİM ŞU:"A"STUNUNA YAZILAN İSİM,
"X"SÜTUNUNDA BULUNAN İSİMLERİN DIŞINDA İSE HATA VERSİN! YAZILAMASIN... DESTEK RİCASI İLE

 

[hgenc545]

SİTEDEKİ YENİLİKTEN OLSA GEREK İZİN VERİLEN UZANTININ DIŞINDA DEDİ AYNI DOSYAMA. İNDİRME LİNKİ AŞAĞIDADIR.

https://www.dosyaupload.com/i7c4

 

[hgenc545]

Destek ricası ile..

 

[hgenc545]

Destek ricası ile..

 

[hgenc545]

destek verebilirmisiniz