Merhabalar,
Örnek dosyamı gönderdim.
Yardımcı olursanız sevinirim.
A sutununda "Makina kısa"
B sutununda "Makine Kodları" bulunmakta.
D sutununda "Parça no" larının içinde , A sunundaki değerler geçiyor.
E sunununa , B sutunda geçen Makina kodlarını gelmesini istemekteyim.
Teşekkür ederim.
Hücre içinde istenen metne göre işlem yapma
-
- Mesajlar: 5
- Kayıt: Pzr Eki 20, 2024 11:57 am
- Lokasyon: ADANA
- Meslek: Satın Alma Sorumlusu
- Adınız: Mustafa
- Soyadınız: Saribudak
Hücre içinde istenen metne göre işlem yapma
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 45
- Kayıt: Prş Mar 21, 2024 11:31 am
- Lokasyon: istanbul
- Meslek: Oto Yedek Parça Satış Elemanı
- Adınız: Sinan
- Soyadınız: Aykaç
Re: Hücre içinde istenen metne göre işlem yapma
Deneyiniz; Kodu bir modüle yapıştırınız.
Kod: Tümünü seç
Sub EkleMakineKodlari()
Dim ws As Worksheet
Dim lastRowA As Long, lastRowD As Long
Dim i As Long, j As Long
Dim makinaKısa As String
Dim found As Boolean
' Aktif çalışma sayfasını ayarla
Set ws = ActiveSheet
' Son satırları bul
lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
lastRowD = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
' D sütunundaki değerleri kontrol et
For i = 2 To lastRowD ' D sütunundaki verilerin başlama satırını 2 olarak ayarlayın
found = False ' Başlangıçta eşleşme bulunmadı
For j = 2 To lastRowA ' A sütunundaki verilerin başlama satırını 2 olarak ayarlayın
makinaKısa = ws.Cells(j, "A").Value
If InStr(ws.Cells(i, "D").Value, makinaKısa) > 0 Then
' E sütununa makine kodunu yaz
ws.Cells(i, "E").Value = ws.Cells(j, "B").Value
found = True ' Eşleşme bulundu
Exit For ' Eşleşme bulunduğunda iç döngüden çık
End If
Next j
' Eğer eşleşme bulunmadıysa "yok" yaz
If Not found Then
ws.Cells(i, "E").Value = "yok"
End If
Next i
MsgBox "İşlem tamamlandı!", vbInformation
End Sub
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 5
- Kayıt: Pzr Eki 20, 2024 11:57 am
- Lokasyon: ADANA
- Meslek: Satın Alma Sorumlusu
- Adınız: Mustafa
- Soyadınız: Saribudak
Re: Hücre içinde istenen metne göre işlem yapma
Selamlar,
Kod ile oldu.
Formül kullanarak da yapabilirmiyiz? Bu mümkünmüdür?
Teşekkür ederim.
Kod ile oldu.
Formül kullanarak da yapabilirmiyiz? Bu mümkünmüdür?
Teşekkür ederim.
-
- Mesajlar: 45
- Kayıt: Prş Mar 21, 2024 11:31 am
- Lokasyon: istanbul
- Meslek: Oto Yedek Parça Satış Elemanı
- Adınız: Sinan
- Soyadınız: Aykaç
Re: Hücre içinde istenen metne göre işlem yapma
Kod: Tümünü seç
=EĞERHATA(İNDİS(B:B;KAÇINCI(DOĞRU;ESAYIYSA(BUL(A:A;D2));0));"Yok")
-
- Mesajlar: 5
- Kayıt: Pzr Eki 20, 2024 11:57 am
- Lokasyon: ADANA
- Meslek: Satın Alma Sorumlusu
- Adınız: Mustafa
- Soyadınız: Saribudak
Re: Hücre içinde istenen metne göre işlem yapma
Merhabalar,
Sinan bey çok teşekkür ederim.
Tamamdır:))
Sinan bey çok teşekkür ederim.
Tamamdır:))
-
- Benzer Konular
- Cevaplar
- Görüntüleme
- Son mesaj
-
- 4 Cevaplar
- 273 Görüntüleme
-
Son mesaj gönderen erseldemirel
-
- 2 Cevaplar
- 32 Görüntüleme
-
Son mesaj gönderen MUSSAR
-
- 1 Cevaplar
- 1502 Görüntüleme
-
Son mesaj gönderen SNNAY
-
- 3 Cevaplar
- 2171 Görüntüleme
-
Son mesaj gönderen GuardofDeath17
-
- 3 Cevaplar
- 182 Görüntüleme
-
Son mesaj gönderen erseldemirel