Çözüldü makro kod yardımı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

aapk

Yeni Üye
Katılım
13 Şub 2021
Mesajlar
7
En iyi yanıt
0
Puanları
1
Yaş
34
Konum
istanbul
Ad Soyad
ali
Office Versiyon
365
merhaba ilk başlığım yanlış bir kısımda soru soruyorsam kusura bakmayın

bir konuda yardımlarınızı istiyorum.

B sütununda 0dan başlayıp 5'e kadar sayılar var. Ama sayılar arasında boşluklar var.
İsteğim şu B sütunun da 3 sayısını gördüğünde, 3ten önce gelen ilk 2 sayısına gelsin ve 2yi bulduğu satırdaki S sütunundaki değeri 3ün karşılındaki M sütununa yazsın

Biraz karmaşık biliyorum ama yardımlarınızı rica ediyorum.

Ekte renkler ile söylemek istediğimi paylaştım.
 

Ekli dosyalar

  • yardım.xlsx
    9 KB · Görüntüleme: 5

Sezai

Yeni Üye
Katılım
30 Nis 2020
Mesajlar
8
En iyi yanıt
0
Puanları
3
Yaş
54
Konum
Adana
Ad Soyad
Sezai Maytalman
merhaba ilk başlığım yanlış bir kısımda soru soruyorsam kusura bakmayın

bir konuda yardımlarınızı istiyorum.

B sütununda 0dan başlayıp 5'e kadar sayılar var. Ama sayılar arasında boşluklar var.
İsteğim şu B sütunun da 3 sayısını gördüğünde, 3ten önce gelen ilk 2 sayısına gelsin ve 2yi bulduğu satırdaki S sütunundaki değeri 3ün karşılındaki M sütununa yazsın

Biraz karmaşık biliyorum ama yardımlarınızı rica ediyorum.

Ekte renkler ile söylemek istediğimi paylaştım.
Merhaba aapk, sayfanızı inceledim, mantığını anlayamadım, sayfanızın mantığı ve işlevi nedir?
Saat 19:00 İle 20:30 arası müsaitim, siz istediğiniz zaman yazabilirsiniz.
 

aapk

Yeni Üye
Katılım
13 Şub 2021
Mesajlar
7
En iyi yanıt
0
Puanları
1
Yaş
34
Konum
istanbul
Ad Soyad
ali
Office Versiyon
365
merhaba biraz geç kaldım galiba

B sütununda
B K S
2 5
.
.
.
3 5
.
.
.
4
.
.
.
3 5
.
.
.
2

şeklinde sayılar var

satırda 3 gördüğüm zaman üstünde ilk 2 değerine gidip S sütunundaki değeri alacak ve 3ün karşılığında K sütununa yazacak
 

wexplorerx

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
50
En iyi yanıt
2
Puanları
8
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Versiyon
Office 2016
Merhaba
Dosyadan deneyebilirsin.
 

Ekli dosyalar

  • yardım.xlsx
    11.2 KB · Görüntüleme: 4

wexplorerx

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
50
En iyi yanıt
2
Puanları
8
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Versiyon
Office 2016
Merhaba
İstediğiniz değerler "K" sütunudadır.
Formülleri aşağıya sürükleyerek çoğaltabilirsiniz.
Siz UserForm'da bir nesneye değer göndermek için mi sordunuz ?
Yani mutlaka VBA ile mi olmalı ?
 

aapk

Yeni Üye
Katılım
13 Şub 2021
Mesajlar
7
En iyi yanıt
0
Puanları
1
Yaş
34
Konum
istanbul
Ad Soyad
ali
Office Versiyon
365
Merhaba
İstediğiniz değerler "K" sütunudadır.
Formülleri aşağıya sürükleyerek çoğaltabilirsiniz.
Siz UserForm'da bir nesneye değer göndermek için mi sordunuz ?
Yani mutlaka VBA ile mi olmalı ?
vba ile olursa sevinirim

her defasında farklı datalar kontrol etmek için programı yapıyorum
 

wexplorerx

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
50
En iyi yanıt
2
Puanları
8
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Versiyon
Office 2016
Merhaba aşağıdaki gibi deneyebilirsin.

Sub Değer_Getir()
Range("K2:K50000").ClearContents
Satir = Range("B1048576").End(xlUp).Row
For i = 2 To Satir
If Range("B" & i) = 3 Then
For j = 2 To i
D_Satir = Range("K1048576").End(xlUp).Row
If Range("B" & j) = 2 And D_Satir = 1 Then
Range("K" & i) = Range("S" & j)
End If

If Range("B" & j) = 2 And D_Satir > 1 Then
Range("K" & i) = Range("S" & j)
End If
Next j
End If
Next i
End Sub
 

aapk

Yeni Üye
Katılım
13 Şub 2021
Mesajlar
7
En iyi yanıt
0
Puanları
1
Yaş
34
Konum
istanbul
Ad Soyad
ali
Office Versiyon
365
Merhaba aşağıdaki gibi deneyebilirsin.

Sub Değer_Getir()
Range("K2:K50000").ClearContents
Satir = Range("B1048576").End(xlUp).Row
For i = 2 To Satir
If Range("B" & i) = 3 Then
For j = 2 To i
D_Satir = Range("K1048576").End(xlUp).Row
If Range("B" & j) = 2 And D_Satir = 1 Then
Range("K" & i) = Range("S" & j)
End If

If Range("B" & j) = 2 And D_Satir > 1 Then
Range("K" & i) = Range("S" & j)
End If
Next j
End If
Next i
End Sub
Çok Teşekkür ederim

Süpersiniz :)
 

Sezai

Yeni Üye
Katılım
30 Nis 2020
Mesajlar
8
En iyi yanıt
0
Puanları
3
Yaş
54
Konum
Adana
Ad Soyad
Sezai Maytalman
merhaba biraz geç kaldım galiba

B sütununda
B K S
2 5
.
.
.
3 5
.
.
.
4
.
.
.
3 5
.
.
.
2

şeklinde sayılar var

satırda 3 gördüğüm zaman üstünde ilk 2 değerine gidip S sütunundaki değeri alacak ve 3ün karşılığında K sütununa yazacak
 

Ekli dosyalar

  • yardım.xlsx
    12.4 KB · Görüntüleme: 2

aapk

Yeni Üye
Katılım
13 Şub 2021
Mesajlar
7
En iyi yanıt
0
Puanları
1
Yaş
34
Konum
istanbul
Ad Soyad
ali
Office Versiyon
365
Merhaba aşağıdaki gibi deneyebilirsin.

Sub Değer_Getir()
Range("K2:K50000").ClearContents
Satir = Range("B1048576").End(xlUp).Row
For i = 2 To Satir
If Range("B" & i) = 3 Then
For j = 2 To i
D_Satir = Range("K1048576").End(xlUp).Row
If Range("B" & j) = 2 And D_Satir = 1 Then
Range("K" & i) = Range("S" & j)
End If

If Range("B" & j) = 2 And D_Satir > 1 Then
Range("K" & i) = Range("S" & j)
End If
Next j
End If
Next i
End Sub
Merhaba
koda şöyle bişey ilave edebilirmiyiz

örnek dosya ektedir.
 

Ekli dosyalar

  • yardım.rar
    7.3 KB · Görüntüleme: 2

wexplorerx

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
50
En iyi yanıt
2
Puanları
8
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Versiyon
Office 2016
Merhaba
Hangisinin değerini alacak ? İlk 3 'ün "S" sütunundaki değerini mi ?Son 3'ün mü ?
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt