Excelde araç plakasının son 4 rakamına kod atma

[zamansal2]

excelden etaya aktarım yapıyoruz ve belli bir sütun var bunların yerlerini değiştiremiyoruz ve her satırda araçların ayrı cari kodları var bunu biz 4 hane yazarak cari kodunu yaza bilirmiyiz ? başka bir sayfada formülleyip kopyala yapıştırda yapabiliriz

 

[zamansal2]

https://www.dosyaupload.com/5hyr dosya örneği

 

[sward175]

Merhaba, zamansal2,

Örnek dosya paylaşırsan yardımcı olmamız daha kolay olacaktır.
İyi gün dilekleri ile,
sward175

 

[sward175]

Merhaba, zamansal2,
Anladığımı farz ediyorum.
aşağıdaki formülü I2 hücresine yapıştırarak aşağı doğru çoğaltın.
=EĞER(D2=0;" ";DÜŞEYARA(C2;$N$2:$O$103;2))

Selamlar,
sward175

 

[zamansal2]

Yardımınız için çok teşekkürler ama yanlış anlattım sanırım I sutununa kadar formul yazamıyorum j den sonra yapabilirim aktarmada sıkıntı olur amaç c sutununa cari kodları getirmek onuda f ye plakanın 4 hanesini yazarak çağıra bilirmiyiz veya nasıl yapa biliriz bunu çözemedim ?

 

[zamansal2]

Yardımcı olabilecek varmı bu konuya
şimdiden teşekkürler.

 

[zamansal2]

Excel dosyasını basitleştirdim

Merhabalar ekteki excelde F sütundandaki plakanın sonunu yazdığımızda c sütununa N sütünunudaki kodlar yazacak ama plaka hangisi yazılırsa o gelmesi lazım. yardımcı olursanız sevinirim.
teşekkürler

 

[çıtır]

C2 Kopyalayınız.Aşağı çekerek çoğaltınız.

=EĞERHATA(İNDİS($N$2:$N$1000;KAÇINCI($F2;$O$2:$O$1000;0);1);"")

 

[zamansal2]

Teşekkürler oldu ama c Sütunda kod olduğu için kopyala yapıştır yapacam macro ile buton kullanarak cod atabilirmiyiz basitse eğer değilse hiç uğraşmayın çok teşekkürler.

 

[çıtır]

Bir deneyin işinizi görüre bilir.

Sub bulyaz()
Application.ScreenUpdating = False
Dim i As Integer
Set s1 = Sheets("Sayfa1")
son1 = s1.Cells(65536, "F").End(3).Row
son2 = s1.Cells(65536, "O").End(3).Row
son3 = s1.Cells(65536, "N").End(3).Row
s1.Range("C2:C" & s1.Cells(65536, "C").End(3).Row + 1).Select
Selection.ClearContents
On Error Resume Next
For i = 2 To son1
aranan = s1.Range("F" & i)
t = WorksheetFunction.CountIf(s1.Range("o2:O" & son2), aranan)
If t > 0 Then
sat = WorksheetFunction.Match(aranan, s1.Range("O2:O" & son2), 0)
s1.Range("C" & i) = WorksheetFunction.Index(s1.Range("N2:N" & son3), sat, 1)
End If
Next i
s1.Range("C2").Select
Application.ScreenUpdating = True
End Sub