Excell de sicile göre veri girme

[malacamli]

Örnek verdiğim excel dosyasında,sicil bölümüne istediğim kişinin sicilini yazarak üretim bölümüne de mesela (50) yazarak 1. Sayfada işaretlediğim yere ve devamına sırası ile yazdığım bütün üretimlerin kayıt yapılmasını sağlayabilir miyiz??

 

[Muhammet Okumuş]

Sub Düğme1_Tıklat()
Application.ScreenUpdating = False
a = WorksheetFunction.Match([f6], Sheets("1").Range("a2:a6"), 0) + 1
Sheets("1").Select
b = WorksheetFunction.CountA(Range("b" & a & " :aa" & a)) + 2
Sheets("kaynak").Cells(7, 6).Copy Cells(a, b)
Sheets("kaynak").Select
End Sub

Bu kodu deneyiniz.

 

[malacamli]

rica etsem bunu benim dosyaya eklermisin ben nasıl olacak bilmiyorum
teşekkürler

 

[1Al2Ver]

Merhaba,

Yanlış anlamadıysam; kodu "KAYNAK" sayfasına aldım, inceler misiniz ?

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.

 

[malacamli]

Dosyayı inceleyiniz.

teşekkür ederim arkadaşım tam istediğim gibi olmuş

 

[malacamli]

Merhaba,

Yanlış anlamadıysam; kodu "KAYNAK" sayfasına aldım, inceler misiniz ?

dediğim gibi olmamış ama yardımın için teşekkürler
''muokumus'' yardımcı oldu