Makro VBA satırına değişken atama

[aduhan]

' Range("I19").Select satırında "I19" hücre numarası yerine
' A1 hücresinde Denetimin oluşturduğu satır numarası ile B1 hücresinde Kendi
' verdiğimiz sutun mumarasını =BİRLEŞTİR(A1;B1) komutu ile A3 hücresinde
' elde ettğimiz değişken hücre numarası nasıl yazarız
'
Sub bir_sayfadan_digerine_kopyalama()
'
' bir_sayfadan_digerine_kopyalama Makro
' Makro USER tarafından 01.03.2013 tarihinde kaydedildi.
'

'
Sheets("İZİN BELGESİ").Select
Range("H16").Select
Selection.Copy
Sheets("SSK Çalışma Günleri").Select
Range("I19").Select
ActiveSheet.Paste
End Sub

 

[Mustafa MUTLU]

Dosya Ekleyiniz..
Dosya içinde örnek vererek açıklama yaparsanız.
İlgilenen bir arkadaş çıkar..

 

[ExcelF1]

Şu şekilde deneyiniz.

Sub Düğme1_Tıklat()
Sheets("İZİN BELGESİ").Select
Range("H16").Select
Selection.Copy
Sheets("SSK Çalışma Günleri").Select
[COLOR="Red"]Range(Range("A1") & Range("B1")).Select[/COLOR]
ActiveSheet.Paste
End Sub

 

[aduhan]

Benim dosyam çok karışık Basit bir örnek dosya hazırladım Yardımcı olursanız sevinirim

 

[Mustafa MUTLU]

Tam anlayamadım..
Ne istediğini daha açık anlatırsan yardım edebilirim.

 

[aduhan]

İstediğim şu: izin alırken kullanılan izini makro çalışınca kişinin toplam izininden düşmek;

 

[Mustafa MUTLU]

Sub Makro1()
For MSTF = 2 To Sheets("Sayfa2").Cells(65500, "B").End(xlUp).Row
If [Sayfa1!B2] = Sheets("Sayfa2").Cells(MSTF, "C") Then
If [Sayfa1!B3] = Sheets("Sayfa2").Cells(MSTF, "D") Then
Sheets("Sayfa2").Cells(MSTF, "F") = [Sayfa1!B7]
End If
End If
Next
[Sayfa1!B6] = ""
 MsgBox "İşleminiz Tamamlanmıştır !...", vbExclamation, "Mustafa MUTLU 0 533 740 45 49"

End Sub

Makronuzu
Bu kodla değiştiriniz.

 

[aduhan]

Allah razı olsun. Teşekkürler.

 

[Mustafa MUTLU]

Allah razı olsun. Teşekkürler.

İşinize yaradu ise ne güzel..
Bu kod eşleştirmeyi isim ve soy isime göre yapıyor.
Satır numarasına göre değil..
Bilginize.......